"Committed_by_peb"

1 files changed, 4 insertions, 7 deletions

diff --git a/src/GF/Text/Unicode.hs b/src/GF/Text/Unicode.hs
index f24019b47..9039fbef0 100644
--- a/src/GF/Text/Unicode.hs
+++ b/src/GF/Text/Unicode.hs
@@ -9,10 +9,11 @@
 -- > CVS $Author $
 -- > CVS $Revision $
 --
--- (Description of the module)
+-- ad hoc Unicode conversions from different alphabets
+-- AR 12/4/2000, 18/9/2001, 30/5/2002, 26/1/2004
 -----------------------------------------------------------------------------
 
-module Unicode where
+module Unicode (mkUnicode, treat) where
 
 import Greek (mkGreek)
 import Arabic (mkArabic)
@@ -30,10 +31,6 @@ import ExtraDiacritics (mkExtraDiacritics)
 
 import Char
 
--- ad hoc Unicode conversions from different alphabets
-
--- AR 12/4/2000, 18/9/2001, 30/5/2002, 26/1/2004
-
 mkUnicode s = case s of
   '/':'/':cs -> treat [] mkGreek   unic ++ mkUnicode rest
   '/':'+':cs -> mkHebrew  unic ++ mkUnicode rest
@@ -58,7 +55,7 @@ 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
+-- | 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