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

Add a Show instance over BranchAlignment.

Browse Source
This commit is contained in:
Rob Rix 2016-05-25 10:42:44 -04:00
parent 366dba33b3
commit d42c071a08
1 changed files with 3 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
test/AlignmentSpec.hs
View File

@ -261,6 +261,9 @@ instance Arbitrary BranchElement where
instance Arbitrary BranchAlignment where
arbitrary = BranchAlignment <$> listOf1 arbitrary
instance Show BranchAlignment where
show b = show $ toPrettyDiff $ branchElements b
instance Arbitrary (PrettyDiff [(String, Range)]) where
arbitrary = toPrettyDiff <$> listOf1 arbitrary