concurrency and status messages when downloading from import

This commit is contained in:
Joey Hess 2019-03-08 12:33:44 -04:00
parent ee5f1422df
commit e412129523
No known key found for this signature in database
GPG key ID: DB12DB0FF05F8F38
10 changed files with 57 additions and 27 deletions

View file

@ -13,11 +13,9 @@ import Types
import Types.Key
import qualified Git
import qualified Types.Remote as Remote
import Config
import Messages
import Utility.FileSystemEncoding
import qualified Data.Map as M
import Control.Applicative
import Data.Maybe
import Prelude
@ -44,9 +42,6 @@ exportKey sha = mk <$> catKey sha
, keyChunkNum = Nothing
}
exportTree :: Remote.RemoteConfig -> Bool
exportTree c = fromMaybe False $ yesNo =<< M.lookup "exporttree" c
warnExportConflict :: Remote -> Annex ()
warnExportConflict r = toplevelWarning True $
"Export conflict detected. Different trees have been exported to " ++