From f634b7fe98ceef8edc9fe539d6d7e9d593668b74 Mon Sep 17 00:00:00 2001
From: Joe Nelson <cred+github@begriffs.com>
Date: Sun, 24 Jan 2016 17:51:17 -0800
Subject: [PATCH] Rollback test connection on errors

---
 test/SpecHelper.hs | 7 +++++--
 1 file changed, 5 insertions(+), 2 deletions(-)

diff --git a/test/SpecHelper.hs b/test/SpecHelper.hs
index 40be3e9bc..3dc123bd6 100644
--- a/test/SpecHelper.hs
+++ b/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
-    either (resp . pgErrResponse) resp resOrError
+    handleReq c >>= \case
+      Left err -> do
+        void $ H.run (H.sql "rollback;") c
+        resp $ pgErrResponse err
+      Right res -> resp res
 
 setupDb :: IO ()
 setupDb = do