diff options
author | 2011-03-27 16:55:43 -0400 | |
---|---|---|
committer | 2011-03-27 16:55:43 -0400 | |
commit | 30f427700f9e9d59a83775a049e670cc05f2dee6 (patch) | |
tree | 224bdc04fbe08ed02d3801354bbfca8b75b7f4f8 /Command/Semitrust.hs | |
parent | 3470260a8500b42f805b8263af9c73b99706bb92 (diff) |
converted several commands to use Remote
only move and map still to convert
Diffstat (limited to 'Command/Semitrust.hs')
-rw-r--r-- | Command/Semitrust.hs | 13 |
1 files changed, 5 insertions, 8 deletions
diff --git a/Command/Semitrust.hs b/Command/Semitrust.hs index 351336b89..e64d418f8 100644 --- a/Command/Semitrust.hs +++ b/Command/Semitrust.hs @@ -8,8 +8,7 @@ module Command.Semitrust 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 "semitrust" 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 SemiTrusted return $ Just $ return True |