From a0072d5e485d323656906f6d8ac64606972bf2ee Mon Sep 17 00:00:00 2001
From: krasimir <unknown>
Date: Fri, 7 Jan 2005 22:24:55 +0000
Subject: [PATCH] [project @ 2005-01-07 22:24:55 by krasimir] truncate the
 file only in WriteMode

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

diff --git a/GHC/Handle.hs b/GHC/Handle.hs
index 56deea6..f79a2cb 100644
--- a/GHC/Handle.hs
+++ b/GHC/Handle.hs
@@ -819,8 +819,10 @@ openFile' filepath mode binary =
 	-- (so we don't need to worry about removing the newly created file
 	--  in the event of an error).
 #ifndef mingw32_TARGET_OS
-    throwErrnoIf (/=0) "openFile" 
-       (c_ftruncate (fromIntegral fd) 0)
+    if mode == WriteMode
+      then throwErrnoIf (/=0) "openFile" 
+              (c_ftruncate (fromIntegral fd) 0)
+      else return 0
 #endif
     return h
 
-- 
1.7.10.4