From d66ffe8f3156516f6fe5244a50aa9b643954ad63 Mon Sep 17 00:00:00 2001 From: Joe Nelson Date: Fri, 3 Oct 2014 22:49:31 -0700 Subject: [PATCH] Fix linter complaint --- test/Unit/PgQuerySpec.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/test/Unit/PgQuerySpec.hs b/test/Unit/PgQuerySpec.hs index 87ad0a96e..82c20bc92 100644 --- a/test/Unit/PgQuerySpec.hs +++ b/test/Unit/PgQuerySpec.hs @@ -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