diff options
Diffstat (limited to 'CmdLine/Action.hs')
-rw-r--r-- | CmdLine/Action.hs | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/CmdLine/Action.hs b/CmdLine/Action.hs index eeb41394a..73cffec76 100644 --- a/CmdLine/Action.hs +++ b/CmdLine/Action.hs @@ -56,7 +56,8 @@ commandAction a = withOutputType go else do l <- liftIO $ drainTo (n-1) ws findFreeSlot l - w <- liftIO $ async $ snd <$> Annex.run st run + w <- liftIO $ async + $ snd <$> Annex.run st (inOwnConsoleRegion run) Annex.changeState $ \s -> s { Annex.workers = Right w:ws' } go _ = run run = void $ includeCommandAction a |