diff options
| author |  Joey Hess <joey@kitenet.net> | 2011-01-26 16:20:28 -0400 |
|---|---|---|
| committer | Joey Hess <joey@kitenet.net> | 2011-01-26 16:20:28 -0400 |
| commit | 7f6af79232eee685daf58e72737c5284f80cf482 (patch) | |
| tree | e3ec0e7612845e056df355c6841ee9a58e603d52 /Command | |
| parent | 7b2da21ab7bc51785203a69cc05ab811a8629ecb (diff) | |
trust setting improvements
Diffstat (limited to 'Command')
| -rw-r--r-- | Command/Semitrust.hs | 4 | ||||
| -rw-r--r-- | Command/Trust.hs | 4 | ||||
| -rw-r--r-- | Command/Untrust.hs | 4 |
3 files changed, 6 insertions, 6 deletions
diff --git a/Command/Semitrust.hs b/Command/Semitrust.hs index 8ed95f5a3..a91d25359 100644 --- a/Command/Semitrust.hs +++ b/Command/Semitrust.hs @@ -21,11 +21,11 @@ command = [Command "semitrust" (paramRepeating paramRemote) seek seek :: [CommandSeek] seek = [withString start] -{- Marks a remote as not trusted. -} start :: CommandStartString start name = do + showStart "semitrust" name + Remotes.readConfigs r <- Remotes.byName name - showStart "untrust" name return $ Just $ perform r perform :: Git.Repo -> CommandPerform diff --git a/Command/Trust.hs b/Command/Trust.hs index a40c8dccc..3fbff68b8 100644 --- a/Command/Trust.hs +++ b/Command/Trust.hs @@ -21,11 +21,11 @@ command = [Command "trust" (paramRepeating paramRemote) seek seek :: [CommandSeek] seek = [withString start] -{- Marks a remote as trusted. -} start :: CommandStartString start name = do - r <- Remotes.byName name showStart "trust" name + Remotes.readConfigs + r <- Remotes.byName name return $ Just $ perform r perform :: Git.Repo -> CommandPerform diff --git a/Command/Untrust.hs b/Command/Untrust.hs index 9e884e812..69d0ab391 100644 --- a/Command/Untrust.hs +++ b/Command/Untrust.hs @@ -21,11 +21,11 @@ command = [Command "untrust" (paramRepeating paramRemote) seek seek :: [CommandSeek] seek = [withString start] -{- Marks a remote as not trusted. -} start :: CommandStartString start name = do - r <- Remotes.byName name showStart "untrust" name + Remotes.readConfigs + r <- Remotes.byName name return $ Just $ perform r perform :: Git.Repo -> CommandPerform |