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 ++ ")"