From 65f012d15513814bd2cc4ad74f54edd35ade13fe Mon Sep 17 00:00:00 2001
From: bringert <unknown>
Date: Mon, 23 Aug 2004 07:51:36 +0000
Subject: Added CFGM format (pm -printer=cfgm) and utf8 conversion for pm.

---
 src/GF/Text/Unicode.hs | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

(limited to 'src/GF/Text')

diff --git a/src/GF/Text/Unicode.hs b/src/GF/Text/Unicode.hs
index 4d7da0c26..0b0ddfb06 100644
--- a/src/GF/Text/Unicode.hs
+++ b/src/GF/Text/Unicode.hs
@@ -44,8 +44,9 @@ mkUnicode s = case s of
      c:cs -> remClosing (c:u) cs
      _ -> (reverse u,[]) -- forgiving missing end
 
-   -- don't convert XML tags --- assumes <> always means XML tags
-   treat old mk s = case s of
+-- don't convert XML tags --- assumes <> always means XML tags
+treat :: String -> (String -> String) -> String -> String
+treat old mk s = case s of
      '<':cs -> mk (reverse old) ++ '<':noTreat cs
      c:cs -> treat (c:old) mk cs
      _ -> mk (reverse old)
-- 
cgit v1.2.3