Haralds (c) started.

1 files changed, 8 insertions, 8 deletions

diff --git a/src/GF/Text/Unicode.hs b/src/GF/Text/Unicode.hs
index 734879e70..3c1b68c3f 100644
--- a/src/GF/Text/Unicode.hs
+++ b/src/GF/Text/Unicode.hs
@@ -14,7 +14,7 @@ import ExtendedArabic (mkExtendedArabic)
 
 -- ad hoc Unicode conversions from different alphabets
 
--- AR 12/4/2000, 18/9/2001, 30/5/2002
+-- AR 12/4/2000, 18/9/2001, 30/5/2002, HH 14/11/2003
 
 mkUnicode s = case s of
  '/':'/':cs -> mkGreek   (remClosing cs)
@@ -22,13 +22,13 @@ mkUnicode s = case s of
  '/':'-':cs -> mkArabic  (remClosing cs)
  '/':'_':cs -> mkRussian (remClosing cs)
  '/':'*':cs -> mkRusKOI8 (remClosing cs)
- '/':'E':cs -> mkEthiopic (remClosing cs)
- '/':'T':cs -> mkTamil (remClosing cs)
- '/':'C':cs -> mkOCSCyrillic (remClosing cs)
- '/':'&':cs -> mkDevanagari (remClosing cs)
- '/':'L':cs -> mkLatinASupplement (remClosing cs)
- '/':'J':cs -> mkJapanese (remClosing cs)
- '/':'A':cs -> mkExtendedArabic (remClosing cs)
+ '/':'E':cs -> mkEthiopic (remClosing cs)           -- HH
+ '/':'T':cs -> mkTamil (remClosing cs)              -- HH
+ '/':'C':cs -> mkOCSCyrillic (remClosing cs)        -- HH
+ '/':'&':cs -> mkDevanagari (remClosing cs)         -- HH
+ '/':'L':cs -> mkLatinASupplement (remClosing cs)   -- HH
+ '/':'J':cs -> mkJapanese (remClosing cs)           -- HH
+ '/':'A':cs -> mkExtendedArabic (remClosing cs)     -- HH
  _      -> s
 
 remClosing cs