Commit 1c60cbc2 authored by Mikhail Glushenkov's avatar Mikhail Glushenkov
Browse files
parent 533d2f4a
...@@ -408,7 +408,7 @@ renderArgs verbosity tmpFileOpts version comp args k = do ...@@ -408,7 +408,7 @@ renderArgs verbosity tmpFileOpts version comp args k = do
createDirectoryIfMissingVerbose verbosity True outputDir createDirectoryIfMissingVerbose verbosity True outputDir
withTempFileEx tmpFileOpts outputDir "haddock-prolog.txt" $ \prologFileName h -> do withTempFileEx tmpFileOpts outputDir "haddock-prolog.txt" $ \prologFileName h -> do
do do
when (version >= Version [2,15] []) (hSetEncoding h utf8) when (version >= Version [2,14,4] []) (hSetEncoding h utf8)
hPutStrLn h $ fromFlag $ argPrologue args hPutStrLn h $ fromFlag $ argPrologue args
hClose h hClose h
let pflag = "--prologue=" ++ prologFileName let pflag = "--prologue=" ++ prologFileName
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment