Remove connection pooling in test

2016-01-24 18:09:19 -08:00
parent 8b13e7dd73
commit ac73e8d77b
2 changed files with 4 additions and 7 deletions
@@ -84,7 +84,3 @@ authHeaderBasic u p =
 authHeaderJWT :: String -> Header
 authHeaderJWT token =
  (hAuthorization, cs $ "Bearer " ++ token)
-
-testPool :: IO (Pool (Either H.ConnectionError H.Connection))
-testPool = createPool (H.acquire . cs $ dbString)
-  (either (const $ return ()) H.release) 1 1 1