2b940f7725
This serves two purposes. --remote=web bypasses other special remotes that claim the url, same as addurl --raw. And, specifying some other remote allows making sure that an url is claimed by the remote you expect, which makes then using setpresentkey not be fragile. Sponsored-By: the NIH-funded NICEMAN (ReproNim TR&D3) project
34 lines
1 KiB
Haskell
34 lines
1 KiB
Haskell
{- git-annex command
|
|
-
|
|
- Copyright 2015-2022 Joey Hess <id@joeyh.name>
|
|
-
|
|
- Licensed under the GNU AGPL version 3 or higher.
|
|
-}
|
|
|
|
{-# LANGUAGE BangPatterns #-}
|
|
|
|
module Command.UnregisterUrl where
|
|
|
|
import Command
|
|
import Logs.Web
|
|
import Command.RegisterUrl (seekBatch, start, optParser, RegisterUrlOptions(..))
|
|
|
|
cmd :: Command
|
|
cmd = withAnnexOptions [jsonOptions] $ command "unregisterurl"
|
|
SectionPlumbing "unregisters an url for a key"
|
|
(paramPair paramKey paramUrl)
|
|
(seek <$$> optParser)
|
|
|
|
seek :: RegisterUrlOptions -> CommandSeek
|
|
seek o = case (batchOption o, keyUrlPairs o) of
|
|
(Batch fmt, _) -> seekBatch unregisterUrl o fmt
|
|
(NoBatch, ps) -> commandAction (start unregisterUrl o ps)
|
|
|
|
unregisterUrl :: Key -> String -> Annex ()
|
|
unregisterUrl key url = do
|
|
-- Remove the url no matter what downloader;
|
|
-- registerurl can set OtherDownloader, and this should also
|
|
-- be able to remove urls added by addurl, which may use
|
|
-- YoutubeDownloader.
|
|
forM_ [minBound..maxBound] $ \dl ->
|
|
setUrlMissing key (setDownloader url dl)
|