Derive Show, Eq, Ord, Read for Control.Applicative.ZipList; fixes #5787

Patch from merijn.
ghc · Jul 7, 2013 · db6d589 · db6d589
1 parent 91a7f58
commit db6d589
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/Control/Applicative.hs b/Control/Applicative.hs
@@ -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)