Fix lint warnings

2014-10-13 18:16:41 -07:00
parent 5630ee52fd
commit 9c84cf9c3d
4 changed files with 7 additions and 7 deletions
@@ -21,9 +21,9 @@ spec = let
    runRaw conn "select 1/0"
    _ <- insert "1" "items" (SqlRow []) conn
    res $ responseLBS ok200 [("Content-Type", "application/json")] "{}"
-  in around dbWithSchema $ do
+  in around dbWithSchema $

-    describe "withSavepoint" $ do
+    describe "withSavepoint" $
      it "allows partial rollback of request" $ \c -> do
        let app = withSavepoint dbErrApp c
        [[beforeCount]] <- quickQuery c "select count(*) from \"1\".items" []