Feature tests pass, unit test does not

src/Dbapi.hs

@@ -21,7 +21,7 @@ import Network.Wai
 import qualified Data.ByteString.Lazy as BL
 import qualified Data.ByteString.Char8 as BS
 
-import Database.HDBC.PostgreSQL (connectPostgreSQL')
+import Database.HDBC.PostgreSQL (Connection)
 import Database.HDBC.Types (SqlError, seErrorMsg)
 import PgStructure (printTables, printColumns)
 
@@ -52,9 +52,8 @@ jsonBodyAction req handler = do
 jsonBody :: Request -> IO (Either String SqlRow)
 jsonBody = (fmap JSON.eitherDecode) . strictRequestBody
 
-app ::  AppConfig -> Application
-app config req respond = do
-  conn <- connectPostgreSQL' $ configDbUri config
+app :: Connection -> Application
+app conn req respond = do
   r <- try $
     case (path, verb) of
       ([], _) ->

src/Main.hs

@@ -5,6 +5,7 @@
 module Main where
 import Dbapi
 import Network.Wai.Handler.Warp hiding (Connection)
+import Database.HDBC.PostgreSQL (connectPostgreSQL')
 
 import Control.Applicative
 import Options.Applicative hiding (columns)
@@ -21,10 +22,12 @@ argParser = AppConfig
 main :: IO ()
 main = do
   conf <- execParser (info (helper <*> argParser) describe)
+  let port = configPort conf
+  let dburi = configDbUri conf
 
   Prelude.putStrLn $ "Listening on port " ++ (show $ configPort conf :: String)
-  run (configPort conf) $ app conf
+  conn <- connectPostgreSQL' dburi
+  run port $ app conn
 
   where
     describe = progDesc "create a REST API to an existing Postgres database"
-