github/semantic
1
1
Fork 0
mirror of https://github.com/github/semantic.git synced 2024-12-23 14:54:16 +03:00
Code Issues Projects Releases Wiki Activity

Define a Listable instance over Patch.

Browse Source
This commit is contained in:
Rob Rix 2017-01-05 14:46:18 -05:00
parent 8c566860ee
commit d80ea55a59
1 changed files with 3 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
src/Patch/Arbitrary.hs
View File

@ -20,3 +20,6 @@ instance Arbitrary a => Arbitrary (Patch a) where
instance Listable1 Patch where
liftTiers t = liftCons1 t Insert \/ liftCons1 t Delete \/ liftCons2 t t Replace
instance Listable a => Listable (Patch a) where
tiers = tiers1