diff options
Diffstat (limited to 'src')
| -rw-r--r-- | src/Binary.hs | 3 | ||||
| -rw-r--r-- | src/HaddockHtml.hs | 5 |
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 |