mirror of
https://github.com/github/semantic.git
synced 2024-12-25 16:02:43 +03:00
Correct the Listable1 instance for Diff.
This commit is contained in:
parent
d0a1d31c68
commit
a140d2f4c4
@ -189,7 +189,7 @@ instance (Listable1 f, Listable a, Listable b) => Listable (DiffF f a b) where
|
||||
tiers = tiers1
|
||||
|
||||
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
|
||||
tiers = tiers1
|
||||
|
Loading…
Reference in New Issue
Block a user