@@ -613,9 +613,9 @@ module Data.Array where
613 singleton :: forall a. a -> [a]
613 singleton :: forall a. a -> [a]
614 singleton a = [a]
614 singleton a = [a]
616− concatMap :: forall a b. [a] -> (a -> [b]) -> [b]
616+ concatMap :: forall a b. (a -> [b]) -> [a] -> [b]
617− concatMap [] f = []
617+ concatMap _ [] = []
618− concatMap (a:as) f = f a `concat` concatMap as f
618+ concatMap f (a:as) = f a `concat` concatMap f as
620 filter :: forall a. (a -> Boolean) -> [a] -> [a]
620 filter :: forall a. (a -> Boolean) -> [a] -> [a]
621 filter _ [] = []
621 filter _ [] = []
@@ -656,7 +656,7 @@ module Data.Array where
657 instance monadArray :: Monad [] where
657 instance monadArray :: Monad [] where
658 return = singleton
658 return = singleton
659− (>>=) = concatMap
659+ (>>=) = flip concatMap
661 instance functorArray :: Functor [] where
661 instance functorArray :: Functor [] where
662 (<$>) = map
662 (<$>) = map