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)