X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=System%2FIO.hs;h=d189ac1fceebae18a3dc624a1aa13301e816508d;hb=50001a0d33c6c8c12e7dbffc3b2ce7e325383cb7;hp=f33a167bde470fc98dde647bff36f6cde4152d4d;hpb=42bc2e97c1a8566970da3fe35b79b0c764a303ef;p=ghc-base.git

diff --git a/System/IO.hs b/System/IO.hs
index f33a167..d189ac1 100644
--- a/System/IO.hs
+++ b/System/IO.hs
@@ -244,7 +244,7 @@ putChar c       =  hPutChar stdout c
 putStr          :: String -> IO ()
 putStr s        =  hPutStr stdout s
 
--- | The same as 'putStrLn', but adds a newline character.
+-- | The same as 'putStr', but adds a newline character.
 
 putStrLn        :: String -> IO ()
 putStrLn s      =  do putStr s