State monad

gistfile1.hs

import System.Random (newStdGen, randomR)
import Gimlh
import Data.List.Split (splitOn)
import Data.List (intercalate)
import Control.Monad.State

main = putStrLn $ runFaker $ do
  n <- name
  return $ unwords ["Hello", "my", "name", "is", n]

type FakerData = SimpleGiml
newtype Faker a = State FakerData a

loadFakerData :: IO FakerData
loadFakerData = parseFile "../data/en.giml" >>= simplifyGiml

name :: Faker String
name = do
    \(giml, gen)

runFaker :: Faker a -> IO a
runFaker faker = do
    myData <- loadFakerData
    stdGen <- newStdGen
    return $ runState (FakerData, stdGen) faker

valsList :: FakerData -> String -> [String]
valsList giml, key = let fetchedVal = fetch giml key
                     in
                       case fetchedVal of
                         Nothing    -> []
                         (Just val) -> val2List val

randomValue :: (FakerData, StdGen) -> String -> (String, StdGen)
randomValue (giml, gen) key = let vals = valsList giml, key
                                  (ind, newGen) = randomR (0, length vals - 1) gen
                              in (vals !! ind, newGen)