Fix linter complaint

This commit is contained in:
Joe Nelson
2014-10-03 22:49:31 -07:00
parent 01118c9579
commit d66ffe8f31
+1 -1
View File
@@ -63,7 +63,7 @@ spec = around dbWithSchema $ do
cs newRole `shouldBe` role
checkPass (cs encryptedPass) pass `shouldBe` True
it "will not add a user with an unknown role" $ \conn -> do
it "will not add a user with an unknown role" $ \conn ->
addUser user pass "not-a-real-role" conn `shouldThrow` \e ->
take 2 (seState e) == "23" --integrity constraint violation