From 21fac60bf1c462a17166266a15465ac8152d5ae5 Mon Sep 17 00:00:00 2001
From: Rob Rix <rob.rix@github.com>
Date: Fri, 20 May 2016 16:32:28 -0400
Subject: [PATCH] Shrink contents and margins string-wise but not
 character-wise.

:tophat: @rewinfrey
---
 test/AlignmentSpec.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/test/AlignmentSpec.hs b/test/AlignmentSpec.hs
index 4c061070c..10984046d 100644
--- a/test/AlignmentSpec.hs
+++ b/test/AlignmentSpec.hs
@@ -195,7 +195,7 @@ instance Arbitrary Child where
           padding char = frequency [ (10, pure char)
                                    , (1, pure '\n') ]
 
-  shrink Child {..} = Child childKey <$> shrink childContents <*> shrink childMargin
+  shrink Child {..} = Child childKey <$> shrinkList (const []) childContents <*> shrinkList (const []) childMargin
 
 instance Show Child where
   show Child {..} = childMargin ++ "(" ++ childKey ++ childContents ++ ")"