Derp, it is "commit" not "end"
This commit is contained in:
@@ -514,7 +514,7 @@ inTransaction :: Isolation -> H.Session a -> H.Session a
|
|||||||
inTransaction lvl f = do
|
inTransaction lvl f = do
|
||||||
H.sql $ "begin " <> isolate <> ";"
|
H.sql $ "begin " <> isolate <> ";"
|
||||||
r <- f
|
r <- f
|
||||||
H.sql "end;"
|
H.sql "commit;"
|
||||||
return r
|
return r
|
||||||
where
|
where
|
||||||
isolate = case lvl of
|
isolate = case lvl of
|
||||||
|
|||||||
Reference in New Issue
Block a user