mirrors/git-annex
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages 1 Wiki Activity Actions

improve layout

Browse source
This commit is contained in:
Joey Hess 2019-06-05 12:20:20 -04:00
parent 0b5cc89687
commit 30286bf067
No known key found for this signature in database
GPG key ID: DB12DB0FF05F8F38
1 changed files with 2 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

4
CmdLine/Action.hs
View file

@ -74,8 +74,8 @@ commandAction a = Annex.getState Annex.concurrency >>= \case
else do else do
l <- liftIO $ drainTo (n-1) ws l <- liftIO $ drainTo (n-1) ws
findFreeSlot l findFreeSlot l
w <- liftIO $ async w <- liftIO $ async $ snd <$> Annex.run st
$ snd <$> Annex.run st (inOwnConsoleRegion (Annex.output st) run) (inOwnConsoleRegion (Annex.output st) run)
Annex.changeState $ \s -> s { Annex.workers = Right w:ws' } Annex.changeState $ \s -> s { Annex.workers = Right w:ws' }
commandActions :: [CommandStart] -> Annex () commandActions :: [CommandStart] -> Annex ()