haskell/yesod
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Fix a test

Browse Source
This commit is contained in:
Michael Snoyman 2013-04-03 12:20:40 +03:00
parent 7a90a794d8
commit bbe69d25a2
1 changed files with 2 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
yesod-persistent/test/Yesod/PersistSpec.hs
View File

@ -6,13 +6,12 @@ import Test.Hspec
import Database.Persist.Sqlite import Database.Persist.Sqlite
import Network.Wai.Test import Network.Wai.Test
import Yesod.Core import Yesod.Core
import Database.Persist.Store
import Data.Conduit import Data.Conduit
import Blaze.ByteString.Builder.Char.Utf8 (fromText) import Blaze.ByteString.Builder.Char.Utf8 (fromText)
import Yesod.Persist import Yesod.Persist
import Data.Text (Text) import Data.Text (Text)
share [mkPersist sqlSettings, mkMigrate "migrateAll"] [persist| share [mkPersist sqlSettings, mkMigrate "migrateAll"] [persistLowerCase|
Person Person
name Text name Text
|] |]
@ -28,7 +27,7 @@ mkYesod "App" [parseRoutes|
instance Yesod App instance Yesod App
instance YesodPersist App where instance YesodPersist App where
type YesodPersistBackend App = SqlPersist type YesodPersistBackend App = SqlPersistT
runDB = defaultRunDB appConfig appPool runDB = defaultRunDB appConfig appPool
instance YesodPersistRunner App where instance YesodPersistRunner App where
getDBRunner = defaultGetDBRunner appPool getDBRunner = defaultGetDBRunner appPool