jimmy/postgrest
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

clean up spec helper

Browse Source
This commit is contained in:
Adam C. Baker
2014-10-08 16:37:53 -07:00
parent c9fc2154ab
commit e17c51e2f1
1 changed files with 5 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files
test/SpecHelper.hs
+5 -4
View File
@@ -9,10 +9,7 @@ import Database.HDBC
import Database.HDBC.PostgreSQL import Database.HDBC.PostgreSQL
import Data.String.Conversions (cs) import Data.String.Conversions (cs)
import Data.Either (isLeft) import Control.Exception.Base (bracket, finally, tryJust)
import Control.Exception.Base (bracket, finally)
import Control.Exception.Base (bracket, tryJust)
import Control.Monad (when) import Control.Monad (when)
import Network.HTTP.Types.Header (Header, ByteRange, renderByteRange, import Network.HTTP.Types.Header (Header, ByteRange, renderByteRange,
@@ -27,6 +24,10 @@ import Network.Wai.Middleware.Cors (cors)
import Dbapi (app, corsPolicy, AppConfig(..)) import Dbapi (app, corsPolicy, AppConfig(..))
import PgQuery(addUser) import PgQuery(addUser)
isLeft :: Either a b -> Bool
isLeft (Left _ ) = True
isLeft _ = False
cfg :: AppConfig cfg :: AppConfig
cfg = AppConfig "postgres://dbapi_test:@localhost:5432/dbapi_test" 9000 "test/test.crt" "test/test.key" "dbapi_anonymous" cfg = AppConfig "postgres://dbapi_test:@localhost:5432/dbapi_test" 9000 "test/test.crt" "test/test.key" "dbapi_anonymous"