From a772c0af48ea15f8e76dcc1cb500cf9904dbd1ab Mon Sep 17 00:00:00 2001 From: aarne Date: Tue, 14 Jun 2011 11:49:10 +0000 Subject: [PATCH] allow empty lines in transliteration files --- src/compiler/GF/Text/Transliterations.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/compiler/GF/Text/Transliterations.hs b/src/compiler/GF/Text/Transliterations.hs index 31059265a..1c5bdcfcd 100644 --- a/src/compiler/GF/Text/Transliterations.hs +++ b/src/compiler/GF/Text/Transliterations.hs @@ -90,7 +90,7 @@ mkTransliteration name ts us = getTransliterationFile :: String -> String -> Transliteration getTransliterationFile name = uncurry (mkTransliteration name) . codes where - codes = unzip . map (mkOne . words) . lines + codes = unzip . map (mkOne . words) . filter (not . all isSpace) . lines mkOne ws = case ws of [c]:t:_ -> (t,fromEnum c) -- รค a: u:t:_ -> (t,read u) -- 228 a: OR 0xe4