diff --git a/src/PostgREST/QueryBuilder.hs b/src/PostgREST/QueryBuilder.hs index f1c252cd9..5acfbd37b 100644 --- a/src/PostgREST/QueryBuilder.hs +++ b/src/PostgREST/QueryBuilder.hs @@ -514,7 +514,7 @@ inTransaction :: Isolation -> H.Session a -> H.Session a inTransaction lvl f = do H.sql $ "begin " <> isolate <> ";" r <- f - H.sql "end;" + H.sql "commit;" return r where isolate = case lvl of