From ba2c0a7b02832dd289e2c0405b22a50631c3a9e8 Mon Sep 17 00:00:00 2001
From: aarne <aarne@cs.chalmers.se>
Date: Wed, 18 Mar 2009 12:49:46 +0000
Subject: flag -env=quotes (and possible other flags) to restrict ps

---
 src/GF/Text/Lexing.hs | 2 ++
 1 file changed, 2 insertions(+)

(limited to 'src/GF/Text')

diff --git a/src/GF/Text/Lexing.hs b/src/GF/Text/Lexing.hs
index 302a1db51..3300d311e 100644
--- a/src/GF/Text/Lexing.hs
+++ b/src/GF/Text/Lexing.hs
@@ -29,6 +29,8 @@ stringOp name = case name of
   "from_cp1251" -> Just decodeCP1251
   _ -> transliterate name
 
+-- perform op in environments beg--end, t.ex. between "--"
+--- suboptimal implementation
 opInEnv :: String -> String -> (String -> String) -> (String -> String)
 opInEnv beg end op = concat . altern False . chop (lbeg, beg) [] where
   chop mk@(lg, mark) s0 s = 
-- 
cgit v1.2.3