converted several commands to use Remote
only move and map still to convert
This commit is contained in:
parent
3470260a85
commit
30f427700f
7 changed files with 58 additions and 46 deletions
|
@ -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
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue