fix foldr1/foldl1 for Backwards (spotted by Ryan Scott)
authorRoss Paterson <ross@soi.city.ac.uk>
Tue, 24 Mar 2015 14:41:24 +0000 (14:41 +0000)
committerRoss Paterson <ross@soi.city.ac.uk>
Tue, 24 Mar 2015 14:41:24 +0000 (14:41 +0000)
Control/Applicative/Backwards.hs

index 918ec7e..d70cf38 100644 (file)
@@ -67,8 +67,8 @@ instance (Foldable f) => Foldable (Backwards f) where
     foldMap f (Backwards t) = foldMap f t
     foldr f z (Backwards t) = foldr f z t
     foldl f z (Backwards t) = foldl f z t
-    foldr1 f (Backwards t) = foldl1 f t
-    foldl1 f (Backwards t) = foldr1 f t
+    foldr1 f (Backwards t) = foldr1 f t
+    foldl1 f (Backwards t) = foldl1 f t
 
 -- | Derived instance.
 instance (Traversable f) => Traversable (Backwards f) where