From 60c2d054ee2e34014b081f331ced46b102d2fdbc Mon Sep 17 00:00:00 2001
From: krasimir <krasimir@chalmers.se>
Date: Fri, 27 Jun 2008 10:33:46 +0000
Subject: the shell now supports cp1251 coding with se command. works with the
 word completion as well

---
 src/GF/Compile/Coding.hs | 7 +------
 1 file changed, 1 insertion(+), 6 deletions(-)

(limited to 'src/GF/Compile/Coding.hs')

diff --git a/src/GF/Compile/Coding.hs b/src/GF/Compile/Coding.hs
index 9d271964f..a226265c5 100644
--- a/src/GF/Compile/Coding.hs
+++ b/src/GF/Compile/Coding.hs
@@ -3,6 +3,7 @@ module GF.Compile.Coding where
 import GF.Grammar.Grammar
 import GF.Grammar.Macros
 import GF.Text.UTF8
+import GF.Text.CP1251
 import GF.Infra.Modules
 import GF.Infra.Option
 import GF.Data.Operations
@@ -47,9 +48,3 @@ codeSourceModule co (id,moi) = case moi of
       PSeq p q -> PSeq (codp p) (codp q)
       PAlt p q -> PAlt (codp p) (codp q)
       _ -> p
-
----- from Text.Lexing
-decodeCP1251 = map convert where
-  convert c
-   | c >= '\192' && c <= '\255' = chr (ord c + 848)
-   | otherwise                  = c
-- 
cgit v1.2.3