From c95dff56b3f9b52b63a17ba8dbb4d50a1ffad226 Mon Sep 17 00:00:00 2001 From: Ian Lynagh Date: Tue, 6 Feb 2007 23:24:39 +0000 Subject: [PATCH] Add some type sigs --- GHC/IO.hs | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) diff --git a/GHC/IO.hs b/GHC/IO.hs index 096cff0..37e0d67 100644 --- a/GHC/IO.hs +++ b/GHC/IO.hs @@ -178,13 +178,14 @@ hGetLine h = do Nothing -> hGetLineUnBuffered h Just l -> return l - +hGetLineBuffered :: Handle__ -> IO String hGetLineBuffered handle_ = do let ref = haBuffer handle_ buf <- readIORef ref hGetLineBufferedLoop handle_ ref buf [] - +hGetLineBufferedLoop :: Handle__ -> IORef Buffer -> Buffer -> [String] + -> IO String hGetLineBufferedLoop handle_ ref buf@Buffer{ bufRPtr=r, bufWPtr=w, bufBuf=raw } xss = let -- 1.7.10.4