Fix lint warnings

test/Feature/AuthSpec.hs

@@ -12,7 +12,7 @@ import SpecHelper
 spec :: Spec
 spec = around appWithFixture $
   describe "authorization" $ do
-    it "hides tables that anonymous does not own" $ do
+    it "hides tables that anonymous does not own" $
       get "/authors_only" `shouldRespondWith` 400 -- TODO: should be 404
     it "indicates login failure" $ do
       let auth = authHeader "dbapi_test_author_a" "fakefake"

test/Feature/InsertSpec.hs

@@ -47,7 +47,7 @@ spec = around appWithFixture $ do
             incNullableStr record `shouldBe` Nothing
 
       context "into a table with simple pk" $
-        it "fails with 400 and error" $ do
+        it "fails with 400 and error" $
           post "/simple_pk" [json| { "extra":"foo"} |]
             `shouldRespondWith` 400
 

test/Unit/ErrorsSpec.hs

@@ -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" []