From 919c47c69a5f14c95e91728cc2b2cdb4437b2ee0 Mon Sep 17 00:00:00 2001
From: sof <unknown>
Date: Tue, 3 Aug 2004 19:45:11 +0000
Subject: [haddock @ 2004-08-03 19:45:11 by sof] make it compile with <=
 ghc-6.1

---
 src/Binary.hs      | 3 +++
 src/HaddockHtml.hs | 5 ++++-
 2 files changed, 7 insertions(+), 1 deletion(-)

diff --git a/src/Binary.hs b/src/Binary.hs
index 2703439a..e0a31e11 100644
--- a/src/Binary.hs
+++ b/src/Binary.hs
@@ -50,6 +50,9 @@ module Binary
 --   getBinFileWithDict,	-- :: Binary a => FilePath -> IO a
 --   putBinFileWithDict,	-- :: Binary a => FilePath -> Module -> a -> IO ()
 
+    -- re-export for the benefit of other modules.
+   openBinaryFile 
+
   ) where
 
 #include "MachDeps.h"
diff --git a/src/HaddockHtml.hs b/src/HaddockHtml.hs
index 3cb55ce9..ffd9da47 100644
--- a/src/HaddockHtml.hs
+++ b/src/HaddockHtml.hs
@@ -25,9 +25,12 @@ import List 	( sortBy )
 import Char	( isUpper, toUpper )
 import Monad	( when, unless )
 
+
 import Foreign
 import Control.Exception ( handle, bracket )
-import System.IO
+
+import Binary    ( openBinaryFile )
+import System.IO ( IOMode(..), hClose, hGetBuf, hPutBuf )
 
 #if __GLASGOW_HASKELL__ < 503
 import FiniteMap
-- 
cgit v1.2.3