Improved unicode output.

1 files changed, 9 insertions, 1 deletions

diff --git a/src/GF/Compile/Optimize.hs b/src/GF/Compile/Optimize.hs
index ceec2c1b6..bb54df050 100644
--- a/src/GF/Compile/Optimize.hs
+++ b/src/GF/Compile/Optimize.hs
@@ -178,7 +178,7 @@ evalPrintname gr c ppr lin =
   case ppr of
     Yes pr -> comp pr
     _ -> case lin of
-      Yes t -> return $ K $ prt $ oneBranch t ---- stringFromTerm
+      Yes t -> return $ K $ clean $ prt $ oneBranch t ---- stringFromTerm
       _ -> return $ K $ prt c ----
  where
    comp = computeConcrete gr
@@ -193,3 +193,11 @@ evalPrintname gr c ppr lin =
      P x _     -> oneBranch x
      Alts (d,_) -> oneBranch d
      _ -> t
+
+  --- very unclean cleaner
+   clean s = case s of
+     '+':'+':' ':cs -> clean cs
+     '"':cs -> clean cs
+     c:cs -> c: clean cs
+     _ -> s
+