main.hs

import qualified Database.Persist      as P

main :: IO ()
main = do
    conf <- Yesod.Default.Config.loadConfig $ (configSettings Testing)
                { csParseExtra = parseExtra
                }
    dbconf <- withYamlEnvironment "config/postgresql.yml" (appEnv conf)
              P.loadConfig >>=
              P.applyEnv
    pool <- P.createPoolConfig dbconf
    runNoLoggingT $ P.runPool dbconf (rawExecute "SET client_min_messages TO WARNING" []) pool

    foundation <- makeFoundation conf >>= replaceLogger
    hspec $ do
        before (removeDb dbconf pool) $
            yesodSpec foundation $ do
                undefined

removeDb :: Settings.PersistConf -> ConnectionPool -> IO ()
removeDb dbconf p = runNoLoggingT $ P.runPool dbconf reset p
  where
    reset = do
        rawExecute "DROP SCHEMA public CASCADE" []
        rawExecute "CREATE SCHEMA public" []
        runMigrationSilent migrateAll >> return ()