From 33eb6d899fef48f2d38a92bc0fab66ff585be553 Mon Sep 17 00:00:00 2001 From: aarne Date: Thu, 26 Jun 2008 21:01:51 +0000 Subject: moved interruption to GFI level to capture all commands --- src/GF/Command/Interpreter.hs | 3 +++ 1 file changed, 3 insertions(+) (limited to 'src/GF/Command') 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 -- cgit v1.2.3