From d0d57942b8d5103437605f7c87029214c02a74c6 Mon Sep 17 00:00:00 2001
From: Simon Jakobi <simon.jakobi@gmail.com>
Date: Sun, 18 Mar 2018 22:38:04 +0100
Subject: [PATCH] Shrinks forever

---
 tests/Main.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/tests/Main.hs b/tests/Main.hs
index 38c15bd..3960209 100644
--- a/tests/Main.hs
+++ b/tests/Main.hs
@@ -51,7 +51,7 @@ genSnippedS = do
       where m = S.length bs - n
 
 genPackedS :: Gen ByteString
-genPackedS = S.replicate <$> Gen.int (Range.linear 0 (maxSafeBsSize + 2000)) <*> Gen.enumBounded
+genPackedS = S.pack <$> Gen.list (Range.linear 0 (maxSafeBsSize + 2000)) Gen.enumBounded
 
 -- | FIXME: Some larger inputs break the parser.
 -- See https://github.com/sjakobi/bsb-http-chunked/issues/9