Fix lint warnings

This commit is contained in:
Joe Nelson
2014-10-13 18:16:41 -07:00
parent 5630ee52fd
commit 9c84cf9c3d
4 changed files with 7 additions and 7 deletions
+1 -1
View File
@@ -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"
+1 -1
View File
@@ -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