add regions to concurrent output

still no progress displays when getting files etc, but a big improvement
This commit is contained in:
Joey Hess 2015-11-04 14:52:07 -04:00
parent 4fd03ccd7b
commit a4dd8503b8
Failed to extract signature
6 changed files with 101 additions and 55 deletions

View file

@ -24,7 +24,7 @@ import Annex.Action
import Annex.Environment
import Command
import Types.Messages
import Messages.Concurrent
import Messages.Internal
{- Runs the passed command line. -}
dispatch :: Bool -> CmdParams -> [Command] -> [GlobalOption] -> [(String, String)] -> IO Git.Repo -> String -> String -> IO ()