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

Ensure that we can shrink when either childContents or childMargin is empty.

Browse Source
This commit is contained in:
Rob Rix 2016-05-20 16:39:58 -04:00
parent 21fac60bf1
commit 0e86c8149a
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 <$> shrinkList (const []) childContents <*> shrinkList (const []) childMargin
shrink Child {..} = Child childKey <$> "" : shrinkList (const []) childContents <*> "" : shrinkList (const []) childMargin
instance Show Child where
show Child {..} = childMargin ++ "(" ++ childKey ++ childContents ++ ")"