[project @ 1997-05-18 04:19:21 by sof]

getLine defined in terms of hGetLine

ghc/lib/ghc/PrelIO.lhs

@@ -43,10 +43,7 @@ getChar         :: IO Char
 getChar         =  hGetChar stdin
 
 getLine         :: IO String
-getLine         =  do c <- getChar
-                      if c == '\n' then return "" else 
-                         do s <- getLine
-                            return (c:s)
+getLine         =  hGetLine stdin
             
 getContents     :: IO String
 getContents     =  hGetContents stdin