From a140d2f4c4bd590fa60cf3e0ef44cdd49a7532a6 Mon Sep 17 00:00:00 2001 From: Rob Rix Date: Tue, 12 Sep 2017 10:47:50 -0400 Subject: [PATCH] Correct the Listable1 instance for Diff. --- test/Data/Functor/Listable.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/test/Data/Functor/Listable.hs b/test/Data/Functor/Listable.hs index 0b12bcae6..1d0a798a4 100644 --- a/test/Data/Functor/Listable.hs +++ b/test/Data/Functor/Listable.hs @@ -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