X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=GHC%2FIO%2FFD.hs;h=98eeeab0043c17503d21bb6ff7848b2499b1bbc2;hb=7d39e10019df33f1a19d65b3c58c4d01a7dc8d30;hp=d4d28bfacc760ce402ba2508a11a33d751de080f;hpb=2c7c50ca5e6f9bf1eebf70ba633c77027952edef;p=ghc-base.git

diff --git a/GHC/IO/FD.hs b/GHC/IO/FD.hs
index d4d28bf..98eeeab 100644
--- a/GHC/IO/FD.hs
+++ b/GHC/IO/FD.hs
@@ -117,7 +117,7 @@ readBuf' fd buf = do
 #endif
   return (r,buf')
 
-writeBuf' :: FD -> Buffer Word8 -> IO ()
+writeBuf' :: FD -> Buffer Word8 -> IO (Buffer Word8)
 writeBuf' fd buf = do
 #ifdef DEBUG_DUMP
   puts ("writeBuf fd=" ++ show fd ++ " " ++ summaryBuffer buf ++ "\n")