Revert "Eta-expand argument to foldr in mapM_ for []"
authorAustin Seipp <austin@well-typed.com>
Tue, 17 Feb 2015 15:08:12 +0000 (09:08 -0600)
committerAustin Seipp <austin@well-typed.com>
Wed, 18 Feb 2015 15:45:10 +0000 (09:45 -0600)
This change lacked justification (or a test!) for its improvements, and
I merged it on a sweep of Phabricator without fixing this. Trac #10034.

This reverts commit 7cf87fc6928f0252d9f61719e2344e6c69237079.

libraries/base/Data/Foldable.hs

index b8b0973..a745f66 100644 (file)
@@ -349,8 +349,7 @@ for_ = flip traverse_
 -- As of base 4.8.0.0, 'mapM_' is just 'traverse_', specialized to
 -- 'Monad'.
 mapM_ :: (Foldable t, Monad m) => (a -> m b) -> t a -> m ()
-{-# INLINE mapM_ #-}
-mapM_ f = foldr (\m n -> f m >> n) (return ())
+mapM_ f= foldr ((>>) . f) (return ())
 
 -- | 'forM_' is 'mapM_' with its arguments flipped. For a version that
 -- doesn't ignore the results see 'Data.Traversable.forM'.