trust setting improvements
This commit is contained in:
parent
7b2da21ab7
commit
7f6af79232
8 changed files with 47 additions and 35 deletions
|
@ -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
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue