Enclose entire app response in single Tx

2014-12-12 13:55:09 -08:00
parent d763e27bb2
commit 19b62c00ee
7 changed files with 47 additions and 38 deletions
@@ -31,7 +31,7 @@ spec = before resetDb $ around withApp $ do

      request methodGet "/" [auth] ""
        `shouldRespondWith` [json| [
-          {"schema":"1","name":"authors_only","insertable":true}
+            {"schema":"1","name":"authors_only","insertable":true}
        ] |]
        {matchStatus = 200}