improve usage

These commands operate on not only remotes, but any way a repository can
be specified, including "here" etc.

Sponsored-by: Graham Spencer on Patreon

CmdLine/Usage.hs

@@ -60,6 +60,8 @@ paramNumRange :: String
 paramNumRange = "NUM|RANGE"
 paramRemote :: String
 paramRemote = "REMOTE"
+paramRemote :: String
+paramRemote = "REPOSITORY"
 paramField :: String
 paramField = "FIELD"
 paramGlob :: String

Command/Dead.hs

@@ -16,7 +16,7 @@ import Git.Types
 
 cmd :: Command
 cmd = command "dead" SectionSetup "hide a lost repository or key"
-	(paramRepeating paramRemote) (seek <$$> optParser)
+	(paramRepeating paramRepository) (seek <$$> optParser)
 
 data DeadOptions = DeadRemotes [RemoteName] | DeadKeys [Key]
 

Command/Semitrust.hs

@@ -14,7 +14,7 @@ import Command.Trust (trustCommand)
 cmd :: Command
 cmd = command "semitrust" SectionSetup 
 	"return repository to default trust level"
-	(paramRepeating paramRemote) (withParams seek)
+	(paramRepeating paramRepository) (withParams seek)
 
 seek :: CmdParams -> CommandSeek
 seek = trustCommand "semitrust" SemiTrusted

Command/Trust.hs

@@ -18,7 +18,7 @@ import qualified Data.Set as S
 
 cmd :: Command
 cmd = command "trust" SectionSetup "trust a repository"
-	(paramRepeating paramRemote) (withParams seek)
+	(paramRepeating paramRepository) (withParams seek)
 
 seek :: CmdParams -> CommandSeek
 seek = trustCommand "trust" Trusted

Command/Untrust.hs

@@ -13,7 +13,7 @@ import Command.Trust (trustCommand)
 
 cmd :: Command
 cmd = command "untrust" SectionSetup "do not trust a repository"
-	(paramRepeating paramRemote) (withParams seek)
+	(paramRepeating paramRepository) (withParams seek)
 
 seek :: CmdParams -> CommandSeek
 seek = trustCommand "untrust" UnTrusted