concurrency and status messages when downloading from import
This commit is contained in:
parent
ee5f1422df
commit
e412129523
10 changed files with 57 additions and 27 deletions
|
@ -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 " ++
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue