Change default pool values

norm2782 · Oct 13, 2011 · d9cbacc · d9cbacc
1 parent 52a7d0d
commit d9cbacc
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/src/Snap/Snaplet/Auth/Backends/Hdbc.hs b/src/Snap/Snaplet/Auth/Backends/Hdbc.hs
@@ -28,7 +28,7 @@ initHdbcAuthManager
   -> Queries
   -> SnapletInit b (AuthManager b)
 initHdbcAuthManager s l conn tbl qs = initHdbcAuthManager' s l pool tbl qs
-  where pool = createPool conn disconnect 1 5 1
+  where pool = createPool conn disconnect 1 300 1
 
 initHdbcAuthManager'
   :: IConnection conn