jimmy/postgrest
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Return the results from withResource function before applying the respond continuation. This ensures that the pool resource is freed as soon as the database operation is complete

Browse Source
This commit is contained in:
Diogo Biazus
2016-02-20 18:03:06 -08:00
committed by Joe Nelson
parent 52e689b830
commit de848f64fa
1 changed files with 4 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files
src/PostgREST/Main.hs
+4 -3
View File
@@ -97,8 +97,9 @@ main = do
body <- strictRequestBody req body <- strictRequestBody req
let handleReq = H.run $ inTransaction ReadCommitted let handleReq = H.run $ inTransaction ReadCommitted
(runWithClaims conf time (app dbStructure conf body) req) (runWithClaims conf time (app dbStructure conf body) req)
withResource pool $ \case res <- withResource pool $ \case
Left err -> respond $ errResponse HT.status500 (cs . show $ err) Left err -> return $ errResponse HT.status500 (cs . show $ err)
Right c -> do Right c -> do
resOrError <- handleReq c resOrError <- handleReq c
either (respond . pgErrResponse) respond resOrError either (return . pgErrResponse) return resOrError
respond res