{-# LANGUAGE TemplateHaskell #-} {-# LANGUAGE OverloadedStrings #-} module Faker.Job where import Data.Text import Faker import Faker.Internal import Faker.Provider.Job import Faker.TH field :: Fake Text field :: Fake Text field = (FakerSettings -> IO Text) -> Fake Text forall a. (FakerSettings -> IO a) -> Fake a Fake (Text -> AesonKey -> (FakerSettings -> IO (Vector Text)) -> FakerSettings -> IO Text forall (m :: * -> *). (MonadThrow m, MonadIO m) => Text -> AesonKey -> (FakerSettings -> m (Vector Text)) -> FakerSettings -> m Text cachedRandomVec Text "job" AesonKey "field" FakerSettings -> IO (Vector Text) forall (m :: * -> *). (MonadThrow m, MonadIO m) => FakerSettings -> m (Vector Text) jobField2Provider) $(generateFakeField "job" "seniority") $(generateFakeField "job" "position") $(generateFakeField "job" "key_skills") $(generateFakeField "job" "employment_type") $(generateFakeField "job" "education_level") $(generateFakeFieldUnresolved "job" "title")