From: simonmar <unknown>
Date: Tue, 23 Sep 2003 13:23:58 +0000 (+0000)
Subject: [project @ 2003-09-23 13:23:58 by simonmar]
X-Git-Tag: nhc98-1-18-release~501
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=252df78b35918b7ac6113949c864a4668d951f6e;p=ghc-base.git

[project @ 2003-09-23 13:23:58 by simonmar]
micro-optimisation
---

diff --git a/GHC/Handle.hs b/GHC/Handle.hs
index 941d2e2..d1f026c 100644
--- a/GHC/Handle.hs
+++ b/GHC/Handle.hs
@@ -441,7 +441,8 @@ flushReadBuffer fd buf
      return buf{ bufWPtr=0, bufRPtr=0 }
 
 flushWriteBuffer :: FD -> Bool -> Buffer -> IO Buffer
-flushWriteBuffer fd is_stream buf@Buffer{ bufBuf=b, bufRPtr=r, bufWPtr=w }  = do
+flushWriteBuffer fd is_stream buf@Buffer{ bufBuf=b, bufRPtr=r, bufWPtr=w }  =
+  seq fd $ do -- strictness hack
   let bytes = w - r
 #ifdef DEBUG_DUMP
   puts ("flushWriteBuffer, fd=" ++ show fd ++ ", bytes=" ++ show bytes ++ "\n")