mirrors/git-annex
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages 1 Wiki Activity Actions

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

Browse source
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
Download patch file Download diff file Expand all files Collapse all files

1
CHANGELOG
View file

@ -2,6 +2,7 @@ git-annex (8.20210224) UNRELEASED; urgency=medium
* Windows: Correct the path to the html help file for 64 bit build. * Windows: Correct the path to the html help file for 64 bit build.
* uninit: Fix a small bug that left a lock file in .git/annex * uninit: Fix a small bug that left a lock file in .git/annex
* registerurl: Allow it to be used in a bare repository.
-- Joey Hess <id@joeyh.name> Wed, 24 Feb 2021 13:18:38 -0400 -- Joey Hess <id@joeyh.name> Wed, 24 Feb 2021 13:18:38 -0400

9
Command/RegisterUrl.hs
View file

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