nek0/yammat
1
0
Fork 0
Code Issues Pull requests Releases Wiki Activity

TestImport: update withApp type

Browse source
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
Show stats Download patch file Download diff file Expand all files Collapse all files

4
test/TestImport.hs
View file

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