@@ -613,9 +613,9 @@ module Data.Array where
613613 singleton :: forall a. a -> [a]
614614 singleton a = [a]
615615
616− concatMap :: forall a b. [a] -> (a -> [b]) -> [b]
617− concatMap [] f = []
618− concatMap (a:as) f = f a `concat` concatMap as f
616+ concatMap :: forall a b. (a -> [b]) -> [a] -> [b]
617+ concatMap _ [] = []
618+ concatMap f (a:as) = f a `concat` concatMap f as
619619
620620 filter :: forall a. (a -> Boolean) -> [a] -> [a]
621621 filter _ [] = []
@@ -656,7 +656,7 @@ module Data.Array where
656656
657657 instance monadArray :: Monad [] where
658658 return = singleton
659− (>>=) = concatMap
659+ (>>=) = flip concatMap
660660
661661 instance functorArray :: Functor [] where
662662 (<$>) = map