registerurl: Allow it to be used in a bare repository.

This commit is contained in:
Joey Hess 2021-03-01 14:03:03 -04:00
parent 06665d733a
commit 97ae474585
No known key found for this signature in database
GPG key ID: DB12DB0FF05F8F38
2 changed files with 5 additions and 5 deletions

View file

@ -15,11 +15,10 @@ import Command.FromKey (keyOpt)
import qualified Remote
cmd :: Command
cmd = notBareRepo $
command "registerurl"
SectionPlumbing "registers an url for a key"
(paramPair paramKey paramUrl)
(seek <$$> optParser)
cmd = command "registerurl"
SectionPlumbing "registers an url for a key"
(paramPair paramKey paramUrl)
(seek <$$> optParser)
data RegisterUrlOptions = RegisterUrlOptions
{ keyUrlPairs :: CmdParams