1
1
mirror of https://github.com/github/semantic.git synced 2025-01-03 13:02:37 +03:00

Define a Listable instance for DiffF.

This commit is contained in:
Rob Rix 2017-09-09 13:46:21 +01:00
parent 6c744336a8
commit a4e98d4318

View File

@ -163,3 +163,6 @@ instance Listable1 f => Listable2 (DiffF f) where
instance (Listable1 f, Listable a) => Listable1 (DiffF f a) where
liftTiers = liftTiers2 tiers
instance (Listable1 f, Listable a, Listable b) => Listable (DiffF f a b) where
tiers = tiers1