From 151d62da866b62814f6ae0f48f0a48e65cf9ad6c Mon Sep 17 00:00:00 2001 From: Sandy Maguire Date: Thu, 12 Mar 2020 23:30:43 -0700 Subject: [PATCH] fix functors --- src/Test/QuickCheck/Checkers.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/Test/QuickCheck/Checkers.hs b/src/Test/QuickCheck/Checkers.hs index 7432943..5e1fd3d 100644 --- a/src/Test/QuickCheck/Checkers.hs +++ b/src/Test/QuickCheck/Checkers.hs @@ -288,8 +288,8 @@ instance (EqProp a, EqProp b) => EqProp (Either a b) #if __GLASGOW_HASKELL__ >= 800 instance EqProp (f (g a)) => EqProp (Compose f g a) instance (EqProp (f a), EqProp (g a)) => EqProp (F.Sum f g a) -#endif instance (EqProp (f a), EqProp (g a)) => EqProp (F.Product f g a) +#endif instance EqProp a => EqProp (Identity a) instance EqProp a => EqProp (Const a b) instance EqProp (Proxy a)