diff options
| author | Krasimir Angelov <kr.angelov@gmail.com> | 2017-09-04 11:43:37 +0200 |
|---|---|---|
| committer | Krasimir Angelov <kr.angelov@gmail.com> | 2017-09-04 11:43:37 +0200 |
| commit | 1f908fa7bf65f51540ccb2b70ca2bd00d9b3dedf (patch) | |
| tree | 6211e867d908c3e40bf29dfa0c5d5ab0cbaf2c38 /src/compiler/GF/Command/CommonCommands.hs | |
| parent | cae52bb9af3f2735a31a4a64cb3b9d7750d0b2a9 (diff) | |
eliminate modules PGF.Lexing, PGF.LexingAGreek. Make PGF.Utilities an internal module in the runtime. These are not really part of the core runtime.
Diffstat (limited to 'src/compiler/GF/Command/CommonCommands.hs')
| -rw-r--r-- | src/compiler/GF/Command/CommonCommands.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/compiler/GF/Command/CommonCommands.hs b/src/compiler/GF/Command/CommonCommands.hs index 0cafad531..69ccaf325 100644 --- a/src/compiler/GF/Command/CommonCommands.hs +++ b/src/compiler/GF/Command/CommonCommands.hs @@ -219,7 +219,7 @@ commonCommands = fmap (mapCommandExec liftSIO) $ Map.fromList [ stringOps menv opts s = foldr (menvop . app) s (reverse opts) where - app f = maybe id id (stringOp f) + app f = maybe id id (stringOp (const False) f) menvop op = maybe op (\ (b,e) -> opInEnv b e op) menv envFlag fs = |