The "git annex content" command is renamed to "git annex wanted".

1 files changed, 0 insertions, 48 deletions

diff --git a/Command/Content.hs b/Command/Content.hs
deleted file mode 100644
index d10bdde3c..000000000
--- a/Command/Content.hs
+++ /dev/null
@@ -1,48 +0,0 @@
-{- git-annex command
- -
- - Copyright 2013 Joey Hess <joey@kitenet.net>
- -
- - Licensed under the GNU GPL version 3 or higher.
- -}
-
-module Command.Content where
-
-import Common.Annex
-import Command
-import qualified Remote
-import Logs.PreferredContent
-
-import qualified Data.Map as M
-
-def :: [Command]
-def = [command "content" (paramPair paramRemote (paramOptional paramExpression)) seek
-	SectionSetup "get or set preferred content expression"]
-
-seek :: [CommandSeek]
-seek = [withWords start]
-
-start :: [String] -> CommandStart
-start = parse
-  where
-  	parse (name:[]) = go name performGet
-	parse (name:expr:[]) = go name $ \uuid -> do
-		showStart "content" name
-		performSet expr uuid
-	parse _ = error "Specify a repository."
-
-	go name a = do
-		u <- Remote.nameToUUID name
-		next $ a u
-
-performGet :: UUID -> CommandPerform
-performGet uuid = do
-	m <- preferredContentMapRaw
-	liftIO $ putStrLn $ fromMaybe "" $ M.lookup uuid m
-	next $ return True
-
-performSet :: String -> UUID -> CommandPerform
-performSet expr uuid = case checkPreferredContentExpression expr of
-	Just e -> error $ "Parse error: " ++ e
-	Nothing -> do
-		preferredContentSet uuid expr
-		next $ return True