Derive Show, Eq, Ord, Read for Control.Applicative.ZipList; fixes #5787
authorIan Lynagh <ian@well-typed.com>
Sun, 7 Jul 2013 18:00:06 +0000 (19:00 +0100)
committerIan Lynagh <ian@well-typed.com>
Sun, 7 Jul 2013 18:00:06 +0000 (19:00 +0100)
Patch from merijn.

libraries/base/Control/Applicative.hs

index 74d33f0..58738b9 100644 (file)
@@ -268,7 +268,7 @@ instance (ArrowZero a, ArrowPlus a) => Alternative (WrappedArrow a b) where
 --
 -- @f '<$>' 'ZipList' xs1 '<*>' ... '<*>' 'ZipList' xsn = 'ZipList' (zipWithn f xs1 ... xsn)@
 --
-newtype ZipList a = ZipList { getZipList :: [a] }
+newtype ZipList a = ZipList { getZipList :: [a] } deriving (Show, Eq, Ord, Read)
 
 instance Functor ZipList where
     fmap f (ZipList xs) = ZipList (map f xs)