diff options
| author | davve <davve@dtek.chalmers.se> | 2006-09-15 19:50:49 +0000 |
|---|---|---|
| committer | davve <davve@dtek.chalmers.se> | 2006-09-15 19:50:49 +0000 |
| commit | e7d25fd7192f676a1d123fae8f2c8e0f25fc7588 (patch) | |
| tree | e2765215771e857bb1ee5a4669ee9fb7264d358a /src/HaddockHtml.hs | |
| parent | bef0a684d00eb4f167dbd8075e282a09f477e96d (diff) | |
Remove Interface and Binary2 modules
Diffstat (limited to 'src/HaddockHtml.hs')
| -rw-r--r-- | src/HaddockHtml.hs | 7 |
1 files changed, 3 insertions, 4 deletions
diff --git a/src/HaddockHtml.hs b/src/HaddockHtml.hs index fae29820..6580d27e 100644 --- a/src/HaddockHtml.hs +++ b/src/HaddockHtml.hs @@ -12,7 +12,6 @@ module HaddockHtml ( import Prelude hiding (div) -import Binary2 ( openBinaryFile ) import HaddockDevHelp import HaddockHH import HaddockHH2 @@ -29,7 +28,7 @@ import Data.Char ( isUpper, toUpper ) import Data.List ( sortBy ) import Data.Maybe ( fromJust, isJust, mapMaybe, fromMaybe ) import Foreign.Marshal.Alloc ( allocaBytes ) -import System.IO ( IOMode(..), hClose, hGetBuf, hPutBuf ) +import System.IO ( IOMode(..), hClose, hGetBuf, hPutBuf, openFile ) import Debug.Trace ( trace ) import Data.Map ( Map ) import qualified Data.Map as Map hiding ( Map ) @@ -114,8 +113,8 @@ ppHtmlHelpFiles doctitle maybe_package hmods odir maybe_html_help_format pkg_pat copyFile :: FilePath -> FilePath -> IO () copyFile fromFPath toFPath = - (bracket (openBinaryFile fromFPath ReadMode) hClose $ \hFrom -> - bracket (openBinaryFile toFPath WriteMode) hClose $ \hTo -> + (bracket (openFile fromFPath ReadMode) hClose $ \hFrom -> + bracket (openFile toFPath WriteMode) hClose $ \hTo -> allocaBytes bufferSize $ \buffer -> copyContents hFrom hTo buffer) where |