diff options
Diffstat (limited to 'src/GF')
| -rw-r--r-- | src/GF/Command/Interpreter.hs | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/src/GF/Command/Interpreter.hs b/src/GF/Command/Interpreter.hs index 2762875ec..db4192001 100644 --- a/src/GF/Command/Interpreter.hs +++ b/src/GF/Command/Interpreter.hs @@ -38,10 +38,13 @@ interpretCommandLine :: (String -> String) -> CommandEnv -> String -> IO () interpretCommandLine enc env line = case readCommandLine line of Just [] -> return () + Just pipes -> mapM_ (interpretPipe enc env) pipes +{- Just pipes -> do res <- runInterruptibly (mapM_ (interpretPipe enc env) pipes) case res of Left ex -> putStrLnFlush $ enc (show ex) Right x -> return x +-} Nothing -> putStrLnFlush "command not parsed" interpretPipe enc env cs = do |