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

Fix hlint

Browse Source
This commit is contained in:
Joe Nelson
2014-10-17 18:13:48 -07:00
parent 2773ef3030
commit 25ce4c00c6
1 changed files with 4 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files
src/Middleware.hs
+4 -4
View File
@@ -32,18 +32,18 @@ withDBConnection :: Pool Connection -> (Connection -> Application) -> Applicatio
withDBConnection pool app req respond = withDBConnection pool app req respond =
withResource pool (\c -> app c req respond) withResource pool (\c -> app c req respond)
inTransaction :: (Connection -> Application) -> (Connection -> Application) inTransaction :: (Connection -> Application) -> Connection -> Application
inTransaction app conn req respond = inTransaction app conn req respond =
finally (runRaw conn "begin" >> app conn req respond) (runRaw conn "commit") finally (runRaw conn "begin" >> app conn req respond) (runRaw conn "commit")
withSavepoint :: (Connection -> Application) -> (Connection -> Application) withSavepoint :: (Connection -> Application) -> Connection -> Application
withSavepoint app conn req respond = do withSavepoint app conn req respond = do
runRaw conn "savepoint req_sp" runRaw conn "savepoint req_sp"
catch (app conn req respond) (\e -> let _ = (e::SomeException) in catch (app conn req respond) (\e -> let _ = (e::SomeException) in
runRaw conn "rollback to savepoint req_sp" >> throw e) runRaw conn "rollback to savepoint req_sp" >> throw e)
authenticated :: BS.ByteString -> (Connection -> Application) -> authenticated :: BS.ByteString -> Connection -> Application ->
(Connection -> Application) Connection -> Application
authenticated anon app conn req respond = do authenticated anon app conn req respond = do
attempt <- httpRequesterRole (requestHeaders req) attempt <- httpRequesterRole (requestHeaders req)
case attempt of case attempt of