From: simonmar <unknown>
Date: Tue, 17 Feb 2004 11:21:04 +0000 (+0000)
Subject: [project @ 2004-02-17 11:21:04 by simonmar]
X-Git-Tag: nhc98-1-18-release~376
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=1771d527f12db6a2908d4d5c581aa91818a1b47f;p=ghc-base.git

[project @ 2004-02-17 11:21:04 by simonmar]
Remove unused argument from commitBuffer
---

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