aboutsummaryrefslogtreecommitdiff
path: root/src
diff options
context:
space:
mode:
authorsof <unknown>2004-08-03 19:45:11 +0000
committersof <unknown>2004-08-03 19:45:11 +0000
commit919c47c69a5f14c95e91728cc2b2cdb4437b2ee0 (patch)
tree3a01c69e08cd557f636303b47973b285bb13bbba /src
parentdd5f394e3fe1e83321a7fc70387306a133ed1eb2 (diff)
[haddock @ 2004-08-03 19:45:11 by sof]
make it compile with <= ghc-6.1
Diffstat (limited to 'src')
-rw-r--r--src/Binary.hs3
-rw-r--r--src/HaddockHtml.hs5
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