diff --git a/src/Snap/Snaplet/Auth/Backends/Hdbc.hs b/src/Snap/Snaplet/Auth/Backends/Hdbc.hs index dbc4d72..0d83bd0 100644 --- 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