Hi,
getMyLine :: IO [Char]
getMyLine = do
c <- getChar
if(c == '\n')
then return ""
else cs <- getMyLine
return [c]
-------------- next part --------------
An HTML attachment was scrubbed...
URL: http://www.haskell.org/pipermail/haskell/attachments/20081126/c85c1c9b/attachment.htm