diff options
author | Joey Hess <joey@kitenet.net> | 2011-03-27 16:55:43 -0400 |
---|---|---|
committer | Joey Hess <joey@kitenet.net> | 2011-03-27 16:55:43 -0400 |
commit | 30f427700f9e9d59a83775a049e670cc05f2dee6 (patch) | |
tree | 224bdc04fbe08ed02d3801354bbfca8b75b7f4f8 /Command/Describe.hs | |
parent | 3470260a8500b42f805b8263af9c73b99706bb92 (diff) |
converted several commands to use Remote
only move and map still to convert
Diffstat (limited to 'Command/Describe.hs')
-rw-r--r-- | Command/Describe.hs | 14 |
1 files changed, 5 insertions, 9 deletions
diff --git a/Command/Describe.hs b/Command/Describe.hs index 32aef4f24..9e98a8143 100644 --- a/Command/Describe.hs +++ b/Command/Describe.hs @@ -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 |