diff options
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 |