diff options
Diffstat (limited to 'src/GF/Text/Unicode.hs')
| -rw-r--r-- | src/GF/Text/Unicode.hs | 16 |
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 |