27 lines
583 B
Haskell
27 lines
583 B
Haskell
|
{-# LANGUAGE OverloadedStrings #-}
|
||
|
|
module TestImport
|
||
|
|
( module Yesod.Test
|
||
|
|
, module Model
|
||
|
|
, module Foundation
|
||
|
|
, module Database.Persist
|
||
|
|
, runDB
|
||
|
|
, Spec
|
||
|
|
, Example
|
||
|
|
) where
|
||
|
|
|
||
|
|
import Yesod.Test
|
||
|
|
import Database.Persist hiding (get)
|
||
|
|
import Database.Persist.Sql (SqlPersistM, runSqlPersistMPool)
|
||
|
|
import Control.Monad.IO.Class (liftIO)
|
||
|
|
|
||
|
|
import Foundation
|
||
|
|
import Model
|
||
|
|
|
||
|
|
type Spec = YesodSpec App
|
||
|
|
type Example = YesodExample App
|
||
|
|
|
||
|
|
runDB :: SqlPersistM a -> Example a
|
||
|
|
runDB query = do
|
||
|
|
pool <- fmap connPool getTestYesod
|
||
|
|
liftIO $ runSqlPersistMPool query pool
|