From 1771d527f12db6a2908d4d5c581aa91818a1b47f Mon Sep 17 00:00:00 2001
From: simonmar <unknown>
Date: Tue, 17 Feb 2004 11:21:04 +0000
Subject: [PATCH] [project @ 2004-02-17 11:21:04 by simonmar] Remove unused
 argument from commitBuffer

---
 GHC/IO.hs |    4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/GHC/IO.hs b/GHC/IO.hs
index 24a0653..27b59f1 100644
--- a/GHC/IO.hs
+++ b/GHC/IO.hs
@@ -563,7 +563,7 @@ commitBuffer
 
 commitBuffer hdl raw sz@(I# _) count@(I# _) flush release = do
   wantWritableHandle "commitAndReleaseBuffer" hdl $
-     commitBuffer' hdl raw sz count flush release
+     commitBuffer' raw sz count flush release
 
 -- Explicitly lambda-lift this function to subvert GHC's full laziness
 -- optimisations, which otherwise tends to float out subexpressions
@@ -576,7 +576,7 @@ commitBuffer hdl raw sz@(I# _) count@(I# _) flush release = do
 --
 -- This hack is a fairly big win for hPutStr performance.  --SDM 18/9/2001
 --
-commitBuffer' hdl raw sz@(I# _) count@(I# _) flush release
+commitBuffer' raw sz@(I# _) count@(I# _) flush release
   handle_@Handle__{ haFD=fd, haBuffer=ref, haBuffers=spare_buf_ref } = do
 
 #ifdef DEBUG_DUMP
-- 
1.7.10.4