diff options
| author | Ian Lynagh <ian@well-typed.com> | 2013-07-07 19:00:06 +0100 |
|---|---|---|
| committer | Ian Lynagh <ian@well-typed.com> | 2013-07-07 19:00:06 +0100 |
| commit | d3fbf77f160b30b4b94df485b9a3f4220d57c698 (patch) | |
| tree | eb6d2f77b5cf4e26b3bb74d525a5913d16e04175 /libraries/base/Control/Applicative.hs | |
| parent | 5e2a5dc9c884ceaeea4d8f3757064e0babf9b223 (diff) | |
| download | haskell-d3fbf77f160b30b4b94df485b9a3f4220d57c698.tar.gz | |
Derive Show, Eq, Ord, Read for Control.Applicative.ZipList; fixes #5787
Patch from merijn.
Diffstat (limited to 'libraries/base/Control/Applicative.hs')
| -rw-r--r-- | libraries/base/Control/Applicative.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/libraries/base/Control/Applicative.hs b/libraries/base/Control/Applicative.hs index 74d33f0d57..58738b9b5c 100644 --- a/libraries/base/Control/Applicative.hs +++ b/libraries/base/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) |