diff options
| author | krasimir <krasimir@chalmers.se> | 2010-04-19 09:38:36 +0000 |
|---|---|---|
| committer | krasimir <krasimir@chalmers.se> | 2010-04-19 09:38:36 +0000 |
| commit | 6313244eacf992fb10a5091bee28582e84540809 (patch) | |
| tree | 8208fb18a5e1ab9447bd060cf08a3d78ed0a8c0a /src/compiler/GF/Text/Lexing.hs | |
| parent | 8b5827fc892c2f395ae26f1811da2d4cc3b1669d (diff) | |
use the native unicode support from GHC 6.12
Diffstat (limited to 'src/compiler/GF/Text/Lexing.hs')
| -rw-r--r-- | src/compiler/GF/Text/Lexing.hs | 6 |
1 files changed, 0 insertions, 6 deletions
diff --git a/src/compiler/GF/Text/Lexing.hs b/src/compiler/GF/Text/Lexing.hs index a5a2c71eb..ec030e158 100644 --- a/src/compiler/GF/Text/Lexing.hs +++ b/src/compiler/GF/Text/Lexing.hs @@ -1,8 +1,6 @@ module GF.Text.Lexing (stringOp,opInEnv) where import GF.Text.Transliterations -import GF.Text.UTF8 -import GF.Text.CP1251 import Data.Char import Data.List (intersperse) @@ -23,10 +21,6 @@ stringOp name = case name of "unlexmixed" -> Just $ capitInit . appUnlexer (unlexMixed . unquote) "unwords" -> Just $ appUnlexer unwords "to_html" -> Just wrapHTML - "to_utf8" -> Just encodeUTF8 - "from_utf8" -> Just decodeUTF8 - "to_cp1251" -> Just encodeCP1251 - "from_cp1251" -> Just decodeCP1251 _ -> transliterate name -- perform op in environments beg--end, t.ex. between "--" |