{-# LANGUAGE TemplateHaskell #-} {-# LANGUAGE OverloadedStrings #-} module Faker.Book where import Data.Text import Faker import Faker.Internal import Faker.Provider.Book import Faker.TH $(generateFakeField "book" "title") author :: Fake Text author = Fake authorResolver $(generateFakeField "book" "publisher") $(generateFakeField "book" "genre")