e880d0d22c
Only fsck and reinject and the test suite used the Backend, and they can look it up as needed from the Key. This simplifies the code and also speeds it up. There is a small behavior change here. Before, all commands would warn when acting on an annexed file with an unknown backend. Now, only fsck and reinject show that warning.
30 lines
658 B
Haskell
30 lines
658 B
Haskell
{- git-annex command
|
|
-
|
|
- Copyright 2013 Joey Hess <joey@kitenet.net>
|
|
-
|
|
- Licensed under the GNU GPL version 3 or higher.
|
|
-}
|
|
|
|
module Command.RmUrl where
|
|
|
|
import Common.Annex
|
|
import Command
|
|
import Logs.Web
|
|
|
|
def :: [Command]
|
|
def = [notBareRepo $
|
|
command "rmurl" (paramPair paramFile paramUrl) seek
|
|
SectionCommon "record file is not available at url"]
|
|
|
|
seek :: CommandSeek
|
|
seek = withPairs start
|
|
|
|
start :: (FilePath, String) -> CommandStart
|
|
start (file, url) = flip whenAnnexed file $ \_ key -> do
|
|
showStart "rmurl" file
|
|
next $ next $ cleanup url key
|
|
|
|
cleanup :: String -> Key -> CommandCleanup
|
|
cleanup url key = do
|
|
setUrlMissing key url
|
|
return True
|