diff options
Diffstat (limited to 'src/GF/Shell')
| -rw-r--r-- | src/GF/Shell/Commands.hs | 5 | ||||
| -rw-r--r-- | src/GF/Shell/JGF.hs | 2 |
2 files changed, 4 insertions, 3 deletions
diff --git a/src/GF/Shell/Commands.hs b/src/GF/Shell/Commands.hs index adc023a3d..4b0b3f82d 100644 --- a/src/GF/Shell/Commands.hs +++ b/src/GF/Shell/Commands.hs @@ -126,11 +126,11 @@ execCommand env c s = case c of -- these commands do need IO CCEnvImport file -> useIOE (env,s) $ do - st <- shellStateFromFiles opts env file + st <- shellStateFromFiles optss env file return (st,s) CCEnvEmptyAndImport file -> useIOE (emptyShellState, initSState) $ do - st <- shellStateFromFiles opts emptyShellState file + st <- shellStateFromFiles optss emptyShellState file return (startEditEnv st,initSState) CCEnvEmpty -> do @@ -180,6 +180,7 @@ execCommand env c s = case c of gr = grammarCEnv env cgr = canCEnv env opts = globalOptions env + optss = addOption beSilent opts -- format for documents: -- GF commands of form "-- command", then term or text diff --git a/src/GF/Shell/JGF.hs b/src/GF/Shell/JGF.hs index f1ed6bfb7..916d0fafd 100644 --- a/src/GF/Shell/JGF.hs +++ b/src/GF/Shell/JGF.hs @@ -21,7 +21,7 @@ import UTF8 sessionLineJ :: Bool -> ShellState -> IO () sessionLineJ isNew env = do putStrLnFlush $ initEditMsgJavaX env - let env' = addGlobalOptions (options [sizeDisplay "short"]) env + let env' = addGlobalOptions (options [sizeDisplay "short",beSilent]) env editLoopJnewX isNew env' (initSState) -- this is the real version, with XML |