diff options
author | Joey Hess <joeyh@joeyh.name> | 2016-01-19 15:55:32 -0400 |
---|---|---|
committer | Joey Hess <joeyh@joeyh.name> | 2016-01-19 15:55:32 -0400 |
commit | 312d8657a68c67711491e807382a38371bfb418e (patch) | |
tree | 3da39cc605b02fc551dbcd88f66ef1994435f5de /Command | |
parent | fccc38249549e7471bceb4e9859e3beb2642217d (diff) |
refactor
Diffstat (limited to 'Command')
-rw-r--r-- | Command/RegisterUrl.hs | 5 | ||||
-rw-r--r-- | Command/RmUrl.hs | 5 |
2 files changed, 2 insertions, 8 deletions
diff --git a/Command/RegisterUrl.hs b/Command/RegisterUrl.hs index c1f5a2fcd..8e86bcaa2 100644 --- a/Command/RegisterUrl.hs +++ b/Command/RegisterUrl.hs @@ -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 diff --git a/Command/RmUrl.hs b/Command/RmUrl.hs index d7e99587f..2ee8f2025 100644 --- a/Command/RmUrl.hs +++ b/Command/RmUrl.hs @@ -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 |