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
|
@ -8,8 +8,7 @@
|
|||
module Command.Untrust where
|
||||
|
||||
import Command
|
||||
import qualified GitRepo as Git
|
||||
import qualified Remotes
|
||||
import qualified Remote
|
||||
import UUID
|
||||
import Trust
|
||||
import Messages
|
||||
|
@ -24,12 +23,10 @@ seek = [withString start]
|
|||
start :: CommandStartString
|
||||
start name = notBareRepo $ do
|
||||
showStart "untrust" name
|
||||
Remotes.readConfigs
|
||||
r <- Remotes.byName name
|
||||
return $ Just $ perform r
|
||||
u <- Remote.nameToUUID name
|
||||
return $ Just $ perform u
|
||||
|
||||
perform :: Git.Repo -> CommandPerform
|
||||
perform repo = do
|
||||
uuid <- getUUID repo
|
||||
perform :: UUID -> CommandPerform
|
||||
perform uuid = do
|
||||
trustSet uuid UnTrusted
|
||||
return $ Just $ return True
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue