diff options
| author | aarne <aarne@cs.chalmers.se> | 2009-03-18 12:49:46 +0000 |
|---|---|---|
| committer | aarne <aarne@cs.chalmers.se> | 2009-03-18 12:49:46 +0000 |
| commit | ba2c0a7b02832dd289e2c0405b22a50631c3a9e8 (patch) | |
| tree | 8435668770c4a29035ff66aa5dcfe7b79bacd2e9 /src/GF/Text | |
| parent | 20d6d7372f0b3e83f484137a96c4bc4a51406787 (diff) | |
flag -env=quotes (and possible other flags) to restrict ps
Diffstat (limited to 'src/GF/Text')
| -rw-r--r-- | src/GF/Text/Lexing.hs | 2 |
1 files changed, 2 insertions, 0 deletions
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 = |