Coffee.hs

{-# LANGUAGE TemplateHaskell #-}
{-# LANGUAGE OverloadedStrings #-}

module Faker.Coffee where

import Data.Text
import Faker
import Faker.Internal
import Faker.Provider.Coffee
import Faker.TH

$(generateFakeField "coffee" "country")

$(generateFakeField "coffee" "variety")

$(generateFakeField "coffee" "intensifier")

$(generateFakeField "coffee" "body")

$(generateFakeField "coffee" "descriptor")

notes :: Fake Text
notes =
  Fake
    (cachedRandomUnresolvedVecWithoutVector
       "coffee"
       "notes"
       coffeeNotesProvider
       resolveCoffeeText)

$(generateFakeField "coffee" "name_1")

$(generateFakeField "coffee" "name_2")

blendName :: Fake Text
blendName =
  Fake
    (cachedRandomUnresolvedVecWithoutVector
       "coffee"
       "blendName"
       coffeeBlendNameProvider
       resolveCoffeeText)

regionsColombia :: Fake Text
regionsColombia =
  Fake
    (cachedRandomVec "coffee" "regionsColumbia" coffeeRegionsColombiaProvider)

$(generateFakeFields "coffee" ["regions", "brazil"])

$(generateFakeFields "coffee" ["regions", "sumatra"])

$(generateFakeFields "coffee" ["regions", "ethiopia"])

$(generateFakeFields "coffee" ["regions", "honduras"])

$(generateFakeFields "coffee" ["regions", "kenya"])

$(generateFakeFields "coffee" ["regions", "uganda"])

$(generateFakeFields "coffee" ["regions", "mexico"])

$(generateFakeFields "coffee" ["regions", "guatemala"])

$(generateFakeFields "coffee" ["regions", "nicaragua"])

$(generateFakeFields "coffee" ["regions", "costa_rica"])

$(generateFakeFields "coffee" ["regions", "tanzania"])

$(generateFakeFields "coffee" ["regions", "el_salvador"])

$(generateFakeFields "coffee" ["regions", "rwanda"])

$(generateFakeFields "coffee" ["regions", "burundi"])

$(generateFakeFields "coffee" ["regions", "panama"])

$(generateFakeFields "coffee" ["regions", "yemen"])

$(generateFakeFields "coffee" ["regions", "india"])