[commit: base] master: Derive Show, Eq, Ord, Read for Control.Applicative.ZipList; fixes #5787 (db6d589)

[Ian Lynagh]

Repository : ssh://darcs.haskell.org//srv/darcs/packages/base

On branch  : master

https://github.com/ghc/packages-base/commit/db6d589d22131d9710bbc306913fb6e4e15db7ad

>---------------------------------------------------------------

commit db6d589d22131d9710bbc306913fb6e4e15db7ad
Author: Ian Lynagh <ian at well-typed.com>
Date:   Sun Jul 7 19:00:06 2013 +0100

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

>---------------------------------------------------------------

 Control/Applicative.hs |    2 +-
 1 files changed, 1 insertions(+), 1 deletions(-)

diff --git a/Control/Applicative.hs b/Control/Applicative.hs
index 74d33f0..58738b9 100644
--- 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)