add describe subcommand

This commit is contained in:
Joey Hess 2011-03-03 17:21:00 -04:00
parent 1de12a2918
commit 657395b628
5 changed files with 55 additions and 4 deletions

41
Command/Describe.hs Normal file
View file

@ -0,0 +1,41 @@
{- git-annex command
-
- Copyright 2011 Joey Hess <joey@kitenet.net>
-
- Licensed under the GNU GPL version 3 or higher.
-}
module Command.Describe where
import Command
import qualified GitRepo as Git
import qualified Remotes
import UUID
import Messages
import qualified Command.Init
command :: [Command]
command = [Command "describe" (paramPair paramRemote paramDesc) seek
"change description of a repository"]
seek :: [CommandSeek]
seek = [withString start]
start :: CommandStartString
start params = notBareRepo $ do
let (name, description) =
case (words params) of
(n:d) -> (n,unwords d)
_ -> error "Specify a repository and a description."
showStart "describe" name
Remotes.readConfigs
r <- Remotes.byName name
return $ Just $ perform r description
perform :: Git.Repo -> String -> CommandPerform
perform repo description = do
u <- getUUID repo
describeUUID u description
return $ Just $ Command.Init.cleanup

View file

@ -62,7 +62,7 @@ cleanup = do
liftIO $ Git.run g "add" [File logfile]
liftIO $ Git.run g "commit"
[ Params "-q -m"
, Param "git annex init"
, Param "git annex repository description"
, File logfile
]
return True