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.RangeSpec where

+import Data.Pool
 import Test.Hspec
 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 cfgDefault struct pool) $
  describe "GET /items" $ do