Roll back on db errors

src/PostgREST/Main.hs

@@ -14,6 +14,7 @@ import           PostgREST.Middleware
 import           PostgREST.Types                      (DbStructure)
 
 import           Control.Monad
+import           Control.Monad.Error.Class            (catchError, throwError)
 import           Data.Monoid                          ((<>))
 import           Data.String.Conversions              (cs)
 import           Data.Time.Clock.POSIX                (getPOSIXTime)
@@ -95,5 +96,9 @@ postgrest conf dbStructure pool =
 
     let handleReq = runWithClaims conf time (app dbStructure conf body) req
     resp <- either pgErrResponse id <$> P.use pool
-      (HT.run handleReq HT.ReadCommitted HT.Write)
+      (rollbackOnError $ HT.run handleReq HT.ReadCommitted HT.Write)
     respond resp
+
+ where
+  rollbackOnError :: H.Session a -> H.Session a
+  rollbackOnError = (`catchError` ((H.sql "rollback;" >>) . throwError))