From: Ian Lynagh <igloo@earth.li>
Date: Fri, 21 Mar 2008 01:13:56 +0000 (+0000)
Subject: Remove a gratuitous pattern type sig
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=9c622a5bde2a167a7725cb8c245cbaf0615dbe6a;p=ghc-base.git

Remove a gratuitous pattern type sig
---

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 [])