moved interruption to GFI level to capture all commands

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