[haddock @ 2004-08-03 19:45:11 by sof]

make it compile with <= ghc-6.1

2 files changed, 7 insertions, 1 deletions

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