From 6313244eacf992fb10a5091bee28582e84540809 Mon Sep 17 00:00:00 2001
From: krasimir <krasimir@chalmers.se>
Date: Mon, 19 Apr 2010 09:38:36 +0000
Subject: use the native unicode support from GHC 6.12

---
 src/compiler/GF/Text/Lexing.hs | 6 ------
 1 file changed, 6 deletions(-)

(limited to 'src/compiler/GF/Text/Lexing.hs')

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 "--"
-- 
cgit v1.2.3