diff options
| author | aarne <aarne@cs.chalmers.se> | 2008-06-15 15:24:11 +0000 |
|---|---|---|
| committer | aarne <aarne@cs.chalmers.se> | 2008-06-15 15:24:11 +0000 |
| commit | c2bbdc8a162adb6e50c66a681b7df1c8fbed3f1e (patch) | |
| tree | 5da1d5e3b7e7ee00619fd1bd9585f99ad06a84e1 /src-3.0/GF/Text/Lexing.hs | |
| parent | 8c3111e36a039b2070e796821216d2ff59e09ee6 (diff) | |
commands for displaying transliteration tables
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 |