diff options
author | 2013-10-28 14:08:38 -0400 | |
---|---|---|
committer | 2013-10-28 14:08:38 -0400 | |
commit | a86cd4bc8215f01ffe2ba06c63be56656d8ae7cf (patch) | |
tree | fb66e5b0ae237b6b1b017f1bff75ffc15cec87a1 /Command/Content.hs | |
parent | 061fbfb37e02a9a9cb42396cce63d9b67d6a9c6e (diff) |
The "git annex content" command is renamed to "git annex wanted".
Diffstat (limited to 'Command/Content.hs')
-rw-r--r-- | Command/Content.hs | 48 |
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 |