Provide command-line flag for db pool size

2014-10-21 16:15:11 -07:00
parent 563187f3c0
commit 32e3396caf
4 changed files with 7 additions and 4 deletions
@@ -29,7 +29,7 @@ isLeft (Left _ ) = True
 isLeft _ = False

 cfg :: AppConfig
-cfg = AppConfig "postgres://dbapi_test:@localhost:5432/dbapi_test" 9000 "dbapi_anonymous" False
+cfg = AppConfig "postgres://dbapi_test:@localhost:5432/dbapi_test" 9000 "dbapi_anonymous" False 10

 openConnection :: IO Connection
 openConnection = connectPostgreSQL' $ configDbUri cfg