<table cellspacing="0" cellpadding="0" border="0" ><tr><td valign="top" style="font: inherit;">The program below takes a text file and unwraps all lines to 72 columns, but I'm getting an end of file message at the top of my output.<br><br>How do I lose the EOF?<br><br>Michael<br><br><br>====== unwrap.hs ======<br><br>main = do<br> line <- getLine<br> if null line<br> then do<br> putStrLn ""<br> main<br> else<br> do<br> printList (words line) 1<br>
main<br><br><br>printList :: [String] -> Int -> IO ()<br>printList [] _ = do putStrLn ""<br>printList (w:[]) k = do <br> if k+(length w) <= 72<br> then do<br> putStrLn w<br> else do<br> putStrLn
""<br> putStrLn w<br>printList r@(w:ws) k = do <br> if k+(length w) <= 72<br> then do<br> putStr w<br> putStr "
"<br> printList ws (k+(length w)+1)<br> else do<br> putStrLn ""<br> printList r 1<br><br><br></td></tr></table><br>