From 9c622a5bde2a167a7725cb8c245cbaf0615dbe6a Mon Sep 17 00:00:00 2001 From: Ian Lynagh Date: Fri, 21 Mar 2008 01:13:56 +0000 Subject: [PATCH 1/1] Remove a gratuitous pattern type sig --- GHC/IO.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) 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 []) -- 1.7.10.4