diff options
Diffstat (limited to 'src-3.0/GF/Text/Lexing.hs')
| -rw-r--r-- | src-3.0/GF/Text/Lexing.hs | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/src-3.0/GF/Text/Lexing.hs b/src-3.0/GF/Text/Lexing.hs index 5ad2a69b7..16391d183 100644 --- a/src-3.0/GF/Text/Lexing.hs +++ b/src-3.0/GF/Text/Lexing.hs @@ -1,5 +1,6 @@ module GF.Text.Lexing (stringOp) where +import GF.Text.Transliterations import GF.Text.UTF8 import Data.Char @@ -19,7 +20,7 @@ stringOp name = case name of "unwords" -> Just $ appUnlexer unwords "to_utf8" -> Just encodeUTF8 "from_utf8" -> Just decodeUTF8 - _ -> Nothing + _ -> transliterate name appLexer :: (String -> [String]) -> String -> String appLexer f = unwords . filter (not . null) . f |