diff options
| -rw-r--r-- | src/GF/Compile.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/GF/Compile.hs b/src/GF/Compile.hs index c2fc3a339..c66c2f86a 100644 --- a/src/GF/Compile.hs +++ b/src/GF/Compile.hs @@ -101,7 +101,7 @@ compileSourceGrammar opts gr@(MGrammar ms) = do -- to output an intermediate stage intermOut :: Options -> Dump -> Doc -> IOE () intermOut opts d doc - | dump opts d = ioeIO (hPutStrLn stderr (render (text "\n\n--#" <+> text (show d) $$ doc))) + | dump opts d = ioeIO (hPutStrLn stderr (encodeUTF8 (render (text "\n\n--#" <+> text (show d) $$ doc)))) | otherwise = return () -- | the environment |