From c93d0a3a261ebf2f24606eee8f89d8da8b608c14 Mon Sep 17 00:00:00 2001
From: krasimir <krasimir@chalmers.se>
Date: Thu, 27 Aug 2009 17:27:20 +0000
Subject: [PATCH] the -dump-X options should convert to UTF8

---
 src/GF/Compile.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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