converted several commands to use Remote

only move and map still to convert
This commit is contained in:
Joey Hess 2011-03-27 16:55:43 -04:00
parent 3470260a85
commit 30f427700f
7 changed files with 58 additions and 46 deletions

View file

@ -7,10 +7,8 @@
module Command.Describe where
import Command
import qualified GitRepo as Git
import qualified Remotes
import qualified Remote
import UUID
import Messages
import qualified Command.Init
@ -30,12 +28,10 @@ start params = notBareRepo $ do
_ -> error "Specify a repository and a description."
showStart "describe" name
Remotes.readConfigs
r <- Remotes.byName name
return $ Just $ perform r description
u <- Remote.nameToUUID name
return $ Just $ perform u description
perform :: Git.Repo -> String -> CommandPerform
perform repo description = do
u <- getUUID repo
perform :: UUID -> String -> CommandPerform
perform u description = do
describeUUID u description
return $ Just $ Command.Init.cleanup