msyds/gf-core
1
0
Fork 0
forked from GitHub/gf-core
Code Pull Requests Activity

allow empty lines in transliteration files

Browse Source
This commit is contained in:
aarne
2011-06-14 11:49:10 +00:00
parent 67c804d9a8
commit a772c0af48
1 changed files with 1 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
src/compiler/GF/Text/Transliterations.hs
View File

@@ -90,7 +90,7 @@ mkTransliteration name ts us =
getTransliterationFile :: String -> String -> Transliteration getTransliterationFile :: String -> String -> Transliteration
getTransliterationFile name = uncurry (mkTransliteration name) . codes getTransliterationFile name = uncurry (mkTransliteration name) . codes
where where
codes = unzip . map (mkOne . words) . lines codes = unzip . map (mkOne . words) . filter (not . all isSpace) . lines
mkOne ws = case ws of mkOne ws = case ws of
[c]:t:_ -> (t,fromEnum c) -- ä a: [c]:t:_ -> (t,fromEnum c) -- ä a:
u:t:_ -> (t,read u) -- 228 a: OR 0xe4 u:t:_ -> (t,read u) -- 228 a: OR 0xe4