{-# 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
    (cachedRandomUnresolvedVecWithoutVector
       "book"
       "author"
       bookAuthorProvider
       resolveBookText)

$(generateFakeField "book" "publisher")

$(generateFakeField "book" "genre")