From: Ian Lynagh <igloo@earth.li>
Date: Tue, 6 Feb 2007 23:24:39 +0000 (+0000)
Subject: Add some type sigs
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=c95dff56b3f9b52b63a17ba8dbb4d50a1ffad226;p=haskell-directory.git

Add some type sigs
---

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