From cd6676944dce85ea494642a3cfa22f46160188a2 Mon Sep 17 00:00:00 2001 From: Astro Date: Fri, 5 Jun 2020 19:18:43 +0200 Subject: [PATCH] TestImport: update withApp type --- test/TestImport.hs | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/test/TestImport.hs b/test/TestImport.hs index 0cb65c7..3f00ccb 100644 --- a/test/TestImport.hs +++ b/test/TestImport.hs @@ -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