github/semantic
1
1
Fork 0
mirror of https://github.com/github/semantic.git synced 2024-11-28 10:15:55 +03:00
Code Issues Projects Releases Wiki Activity

Shrink contents and margins string-wise but not character-wise.

Browse Source 
🎩 @rewinfrey
This commit is contained in:
Rob Rix 2016-05-20 16:32:28 -04:00
parent bd286bfbce
commit 21fac60bf1
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
test/AlignmentSpec.hs
View File

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