Fix scaffolding tests
This commit is contained in:
parent
dfcbd224e8
commit
60b7111529
@ -6,7 +6,6 @@ module Main where
|
|||||||
|
|
||||||
import Import
|
import Import
|
||||||
import Settings
|
import Settings
|
||||||
import Yesod.Logger (defaultDevelopmentLogger)
|
|
||||||
import Yesod.Default.Config
|
import Yesod.Default.Config
|
||||||
import Yesod.Test
|
import Yesod.Test
|
||||||
import Application (makeFoundation)
|
import Application (makeFoundation)
|
||||||
@ -16,7 +15,6 @@ import HomeTest
|
|||||||
main :: IO ()
|
main :: IO ()
|
||||||
main = do
|
main = do
|
||||||
conf <- loadConfig $ (configSettings Testing) { csParseExtra = parseExtra }
|
conf <- loadConfig $ (configSettings Testing) { csParseExtra = parseExtra }
|
||||||
logger <- defaultDevelopmentLogger
|
foundation <- makeFoundation conf
|
||||||
foundation <- makeFoundation conf logger
|
|
||||||
app <- toWaiAppPlain foundation
|
app <- toWaiAppPlain foundation
|
||||||
runTests app (connPool foundation) homeSpecs
|
runTests app (connPool foundation) homeSpecs
|
||||||
|
|||||||
Loading…
Reference in New Issue
Block a user