fakedata-0.3.0: test/TestImport.hs

module TestImport where

import qualified Data.HashMap.Strict as HM
import Data.IORef
import qualified Faker as F
import System.IO.Unsafe

defaultFakerSettings :: F.FakerSettings
defaultFakerSettings =
  unsafePerformIO $ do
    cfile <- newIORef HM.empty
    cfield <- newIORef HM.empty
    let settings = F.defaultFakerSettings
    s1 <- F.replaceCacheField HM.empty settings
    s2 <- F.replaceCacheFile HM.empty s1
    return s2