github/semantic
1
1
Fork 0
mirror of https://github.com/github/semantic.git synced 2024-12-27 00:44:57 +03:00
Code Issues Projects Releases Wiki Activity

Correct the Listable1 instance for Diff.

Browse Source
This commit is contained in:
Rob Rix 2017-09-12 10:47:50 -04:00
parent d0a1d31c68
commit a140d2f4c4
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/Data/Functor/Listable.hs
View File

@ -189,7 +189,7 @@ instance (Listable1 f, Listable a, Listable b) => Listable (DiffF f a b) where
tiers = tiers1 tiers = tiers1
instance Listable1 f => Listable1 (Diff f) where instance Listable1 f => Listable1 (Diff f) where
liftTiers annTiers = go where go = liftCons1 (liftTiers2 annTiers go) Diff liftTiers annTiers = go where go = liftCons1 (liftCons1 (liftTiers2 annTiers go) (Let mempty)) Diff
instance (Listable1 f, Listable a) => Listable (Diff f a) where instance (Listable1 f, Listable a) => Listable (Diff f a) where
tiers = tiers1 tiers = tiers1