WIP: fixing compiler errors in specs

2016-01-24 18:09:19 -08:00
parent 3844f3ee96
commit fec316b087
11 changed files with 42 additions and 78 deletions
@@ -1,18 +1,17 @@
 module Feature.QueryLimitedSpec where

+import Data.Pool
 import Test.Hspec hiding (pendingWith)
 import Test.Hspec.Wai
 import Test.Hspec.Wai.JSON
 import Network.HTTP.Types
 import Network.Wai.Test (SResponse(simpleHeaders, simpleStatus))
-
-import Hasql as H
-import Hasql.Postgres as P
+import qualified Hasql.Connection  as H

 import SpecHelper
 import PostgREST.Types (DbStructure(..))

-spec :: DbStructure -> H.Pool P.Postgres -> Spec
+spec :: DbStructure -> Pool H.Connection -> Spec
 spec struct pool =
  beforeAll resetDb
   . around (withApp (cfgLimitRows 3) struct pool) $