git-annex-10.20260213: Command/UnregisterUrl.hs

{- git-annex command
 -
 - Copyright 2015-2026 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(..))
import Backend.URL

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" unregisterUrl o ps)

unregisterUrl :: Remote -> Key -> String -> Annex ()
unregisterUrl _remote key url = do
	unregisterUrl' url key
	maybe noop (unregisterUrl' url) (otherUrlKey key)

unregisterUrl' :: String -> Key -> Annex ()
unregisterUrl' url key = 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)
	-- Unlike registerurl, this does not update location
	-- tracking for remotes other than the web special remote.
	-- Doing so with a remote that git-annex can drop content
	-- from would rather unexpectedly leave content stranded
	-- on that remote.