mirrors/git-annex
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages 1 Wiki Activity Actions

refactor some boilerplate

Browse source
This commit is contained in:
Joey Hess 2011-05-15 02:02:46 -04:00
parent b400984ddf
commit 56bc3e95ca
31 changed files with 93 additions and 86 deletions
Download patch file Download diff file Expand all files Collapse all files

4
Command/Describe.hs
View file

@ -29,9 +29,9 @@ start params = notBareRepo $ do
showStart "describe" name
u <- Remote.nameToUUID name
return $ Just $ perform u description
next $ perform u description
perform :: UUID -> String -> CommandPerform
perform u description = do
describeUUID u description
return $ Just $ Command.Init.cleanup
next $ Command.Init.cleanup