Test out long compile times for Model.hs

genmodel.hs

main = do
    putStrLn "{-# LANGUAGE QuasiQuotes, TemplateHaskell, KindSignatures, TypeFamilies #-}"
    putStrLn "{-# LANGUAGE GADTs #-}"
    putStrLn "import Database.Persist.Store"
    putStrLn "import Database.Persist.TH"
    putStrLn "mkPersist sqlSettings [persist|"
    mapM_ go [1..50]
    putStrLn "|]"
    putStrLn "main :: IO ()"
    putStrLn "main = return ()"

go i = do
    putStrLn $ "Foo" ++ show i ++ " json"
    putStrLn "    foo String"
    putStrLn "    bar Int"
    putStrLn "    baz Double"
    putStrLn $ "    UniqueFoo" ++ show i ++ " foo bar"
    putStrLn "    deriving Show Eq"

test.sh

runghc genmodel.hs > modeltest.hs && ghc --make -O -v3 modeltest.hs