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

@ -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