Derp, it is "commit" not "end"

This commit is contained in:
Joe Nelson
2016-01-24 18:09:20 -08:00
parent cbb2ba7d42
commit 75ebd1bd24
+1 -1
View File
@@ -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