From: stolz <unknown>
Date: Tue, 24 Jun 2003 09:32:34 +0000 (+0000)
Subject: [project @ 2003-06-24 09:32:34 by stolz]
X-Git-Tag: Approx_11550_changesets_converted~746
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=9d5c1a04f9dbee3819f5ccd3def215c7da8a1d70;hp=b996479a35d1876a1c11a350dc568da7b75fcaf2;p=ghc-hetmet.git

[project @ 2003-06-24 09:32:34 by stolz]
Fix another occurence of openFileEx in stage2
---

diff --git a/ghc/compiler/utils/Binary.hs b/ghc/compiler/utils/Binary.hs
index 16a5291..7d5990b 100644
--- a/ghc/compiler/utils/Binary.hs
+++ b/ghc/compiler/utils/Binary.hs
@@ -251,7 +251,7 @@ writeBinMem (BinMem _ ix_r sz_r arr_r) fn = do
 
 readBinMem :: FilePath -> IO BinHandle
 readBinMem filename = do
-  h <- openFileEx filename (BinaryMode ReadMode)
+  h <- openBinaryFile filename ReadMode
   filesize' <- hFileSize h
   let filesize = fromIntegral filesize'
   arr <- newArray_ (0,filesize-1)