Comment fixes

Peaker · May 2, 2009 · c42ac01 · c42ac01
1 parent b41b69c
commit c42ac01
Show file tree

Hide file tree

Showing 2 changed files with 1 addition and 5 deletions.
diff --git a/src/Data/MList/IO.hs b/src/Data/MList/IO.hs
@@ -6,5 +6,6 @@ import Data.MList(MList(..))
 import Data.MList.Control(while)
 import System.IO(Handle, hGetLine, hIsEOF)
 
+-- System.IO.hGetLine is strict I/O, unlike System.IO.hGetContents
 hGetLines :: Handle -> MList IO String
 hGetLines handle = while (fmap not $ hIsEOF handle) (hGetLine handle)
diff --git a/src/Example.hs b/src/Example.hs
@@ -49,11 +49,6 @@ main = do
   print x3
   print =<< MList.toList result3
 
-  -- putStrLn "Testing monad instance..."
-  -- let result2 = MList.concat $ fmap print ls
-  -- MList.MCons line2 _ <- MList.unMList result2
-  -- print line2
-
   putStrLn "Testing files and instances ..."
   let enumStr = fmap (uncurry (++) . first ((" " ++) . (++ " ") . show)) . enumerate
       blah = enumStr . mlistForPath $ "test/blah"