TestImport: update withApp type

This commit is contained in:
Astro 2020-06-05 19:18:43 +02:00
parent 98d709752d
commit cd6676944d
1 changed files with 2 additions and 2 deletions

View File

@ -18,10 +18,10 @@ runDB query = do
pool <- fmap appConnPool getTestYesod
liftIO $ runSqlPersistMPool query pool
withApp :: SpecWith App -> Spec
withApp :: SpecWith (App, a -> a) -> Spec
withApp = before $ do
settings <- loadAppSettings
["config/test-settings.yml", "config/settings.yml"]
[]
ignoreEnv
makeFoundation settings
(, id) <$> makeFoundation settings