fakedata-0.3.0: src/Faker/Nation.hs

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

module Faker.Nation where

import qualified Data.ByteString as BS
import Data.Text
import qualified Data.Text.Encoding as TE
import qualified Data.Vector as V
import Faker
import Faker.Internal
import Faker.Provider.Nation
import Faker.TH

$(generateFakeField "nation" "nationality")

$(generateFakeField "nation" "language")

$(generateFakeField "nation" "capital_city")

flagEmoji :: Fake Text
flagEmoji =
  Fake
    (\settings -> do
       vecword <- resolver nationFlagEmojiProvider settings
       let lword = V.toList vecword
       pure $ TE.decodeUtf8 $ BS.pack lword)