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/HaddockHtml.hs | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

(limited to 'src/HaddockHtml.hs')

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