X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=GHC%2FIO.hs;h=b4d53547f8a3f7251c74b50608e01a90cf72b172;hb=9c622a5bde2a167a7725cb8c245cbaf0615dbe6a;hp=5d88dc110a83f5452c74653ed75e0fe1f5a63224;hpb=9fde0036ce00a9d66ad82de97e03a0cb5d1ddcb0;p=ghc-base.git

diff --git a/GHC/IO.hs b/GHC/IO.hs
index 5d88dc1..b4d5354 100644
--- a/GHC/IO.hs
+++ b/GHC/IO.hs
@@ -944,7 +944,7 @@ foreign import ccall unsafe "__hscore_memcpy_dst_off"
 -- Internal Utils
 
 illegalBufferSize :: Handle -> String -> Int -> IO a
-illegalBufferSize handle fn (sz :: Int) = 
+illegalBufferSize handle fn sz =
         ioException (IOError (Just handle)
                             InvalidArgument  fn
                             ("illegal buffer size " ++ showsPrec 9 sz [])