[deforest mapM and mapM_ manually for now. get rid of some trailing whitespace
John Meacham <john@repetae.net>**20060124073411] hunk ./lib/Prelude/IO.hs 42
-	
+
hunk ./lib/Prelude/IO.hs 48
-	
-	
+
+
hunk ./lib/Prelude/IO.hs 52
-	
+
hunk ./lib/Prelude/IO.hs 55
-                 putStr "\n"
-	
+                 putChar '\n'
+
hunk ./lib/Prelude/IO.hs 59
-	
-	
+
+
hunk ./lib/Prelude/IO.hs 127
-	
+
hunk ./lib/Prelude/IO.hs 130
-	
+
hunk ./lib/Prelude.hs 306
+-- manually deforested for now
+
hunk ./lib/Prelude.hs 309
-mapM f as        =  sequence (map f as)
+--mapM f as        =  sequence (map f as)
+mapM f as = go as where
+    go [] = return []
+    go (a:as) = do
+        a' <- f a
+        as' <- go as
+        return (a':as')
hunk ./lib/Prelude.hs 318
-mapM_ f as       =  sequence_ (map f as)
+--mapM_ f as       =  sequence_ (map f as)
+mapM_ f as = go as where
+    go [] = return ()
+    go (a:as) = f a >> go as