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

concurrency and status messages when downloading from import

Browse source
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
Download patch file Download diff file Expand all files Collapse all files

6
Config.hs
View file

@ -94,6 +94,12 @@ setRemoteIgnore r b = setConfig (remoteConfig r "ignore") (Git.Config.boolConfig
setRemoteBare :: Git.Repo -> Bool -> Annex ()
setRemoteBare r b = setConfig (remoteConfig r "bare") (Git.Config.boolConfig b)
exportTree :: Remote.RemoteConfig -> Bool
exportTree c = fromMaybe False $ yesNo =<< M.lookup "exporttree" c
importTree :: Remote.RemoteConfig -> Bool
importTree c = fromMaybe False $ yesNo =<< M.lookup "importtree" c
isBareRepo :: Annex Bool
isBareRepo = fromRepo Git.repoIsLocalBare