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

refactor

Browse source
This commit is contained in:
Joey Hess 2016-01-19 15:55:32 -04:00
parent 68edd308af
commit 1f3358512a
Failed to extract signature
3 changed files with 10 additions and 8 deletions
Download patch file Download diff file Expand all files Collapse all files

5
Command/RegisterUrl.hs
View file

@ -55,8 +55,5 @@ perform key url = do
perform' :: Key -> URLString -> Annex Bool
perform' key url = do
r <- Remote.claimingUrl url
let url' = if Remote.uuid r == webUUID
then url
else setDownloader url OtherDownloader
setUrlPresent (Remote.uuid r) key url'
setUrlPresent (Remote.uuid r) key (setDownloader' url r)
return True

5
Command/RmUrl.hs
View file

@ -31,8 +31,5 @@ start (file, url) = flip whenAnnexed file $ \_ key -> do
cleanup :: String -> Key -> CommandCleanup
cleanup url key = do
r <- Remote.claimingUrl url
let url' = if Remote.uuid r == webUUID
then url
else setDownloader url OtherDownloader
setUrlMissing (Remote.uuid r) key url'
setUrlMissing (Remote.uuid r) key (setDownloader' url r)
return True