Rollback test connection on errors

test/SpecHelper.hs

@@ -47,8 +47,11 @@ withApp config dbStructure c perform = do
     let handleReq = H.run $ inTransaction ReadCommitted
           (runWithClaims config time (app dbStructure config body) req)
 
-    resOrError <- handleReq c
+    handleReq c >>= \case
-    either (resp . pgErrResponse) resp resOrError
+      Left err -> do
+        void $ H.run (H.sql "rollback;") c
+        resp $ pgErrResponse err
+      Right res -> resp res
 
 setupDb :: IO ()
 setupDb = do