aboutsummaryrefslogtreecommitdiff
path: root/haddock-api/src
diff options
context:
space:
mode:
authoralexbiehl <alex.biehl@gmail.com>2018-02-03 11:47:10 +0100
committeralexbiehl <alex.biehl@gmail.com>2018-02-03 12:11:55 +0100
commit86292c54bfee2343aee84559ec01f1fc68f52231 (patch)
tree64a03b64ed9887047e353e34651a7e2afd90a96f /haddock-api/src
parentac33472e834d381f95fd56586e57e6653263055c (diff)
QuickJump: Mitigate encoding problems on Windows
Diffstat (limited to 'haddock-api/src')
-rw-r--r--haddock-api/src/Haddock/Backends/Xhtml.hs9
1 files changed, 5 insertions, 4 deletions
diff --git a/haddock-api/src/Haddock/Backends/Xhtml.hs b/haddock-api/src/Haddock/Backends/Xhtml.hs
index 01c08f7a..60d3e985 100644
--- a/haddock-api/src/Haddock/Backends/Xhtml.hs
+++ b/haddock-api/src/Haddock/Backends/Xhtml.hs
@@ -36,11 +36,13 @@ import Text.XHtml hiding ( name, title, p, quote )
import Haddock.GhcUtils
import Control.Monad ( when, unless )
+import qualified Data.ByteString.Builder as Builder
import Data.Char ( toUpper, isSpace )
import Data.List ( sortBy, isPrefixOf, intercalate, intersperse )
import Data.Maybe
-import System.FilePath hiding ( (</>) )
import System.Directory
+import System.FilePath hiding ( (</>) )
+import qualified System.IO as IO
import Data.Map ( Map )
import qualified Data.Map as Map hiding ( Map )
import qualified Data.Set as Set hiding ( Set )
@@ -353,9 +355,8 @@ ppJsonIndex :: FilePath
-> IO ()
ppJsonIndex odir maybe_source_url maybe_wiki_url unicode qual_opt ifaces = do
createDirectoryIfMissing True odir
- writeFile (joinPath [odir, indexJsonFile])
- (encodeToString modules)
-
+ IO.withFile (joinPath [odir, indexJsonFile]) IO.WriteMode $ \h -> do
+ Builder.hPutBuilder h (encodeToBuilder modules)
where
modules :: Value
modules = Array (concatMap goInterface ifaces)