From 2b76c87d1d17368fe53ae038a72d4c36a0771f5f Mon Sep 17 00:00:00 2001
From: "Adam C. Baker" <adam.durandal@gmail.com>
Date: Tue, 11 Nov 2014 21:29:40 -0800
Subject: [PATCH] trivial test change to illustrate alternative to pick

---
 test/Unit/PgQuerySpec.hs | 5 ++---
 1 file changed, 2 insertions(+), 3 deletions(-)

diff --git a/test/Unit/PgQuerySpec.hs b/test/Unit/PgQuerySpec.hs
index 9e0f2c7c2..b25c7e1ab 100644
--- a/test/Unit/PgQuerySpec.hs
+++ b/test/Unit/PgQuerySpec.hs
@@ -86,9 +86,8 @@ spec = around dbWithSchema $ do
       signInRole user (pass <> "crap") conn `shouldReturn` LoginFailed
 
   describe "pgFmtIdent" $
-    it "Does what format %I would do" $ \conn ->
-      property $ monadicIO $ do
-        fuzz <- pick arbitrary
+    it "Does what format %I would do" $ \conn -> property $ \fuzz ->
+      monadicIO $ do
         [[row]] <- run $ quickALQuery conn "select format('%I', ? :: varchar)" [toSql (fuzz :: String)]
         assert $ fromSql (snd row) == pgFmtIdent (cs fuzz)