From 97ae4745850233155d889efb351acd18b491276a Mon Sep 17 00:00:00 2001
From: Joey Hess <joeyh@joeyh.name>
Date: Mon, 1 Mar 2021 14:03:03 -0400
Subject: [PATCH] registerurl: Allow it to be used in a bare repository.

---
 CHANGELOG              | 1 +
 Command/RegisterUrl.hs | 9 ++++-----
 2 files changed, 5 insertions(+), 5 deletions(-)

diff --git a/CHANGELOG b/CHANGELOG
index 67890fdf38..a11e547350 100644
--- a/CHANGELOG
+++ b/CHANGELOG
@@ -2,6 +2,7 @@ git-annex (8.20210224) UNRELEASED; urgency=medium
 
   * 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
+  * registerurl: Allow it to be used in a bare repository.
 
  -- Joey Hess <id@joeyh.name>  Wed, 24 Feb 2021 13:18:38 -0400
 
diff --git a/Command/RegisterUrl.hs b/Command/RegisterUrl.hs
index be51732405..333c8d7522 100644
--- a/Command/RegisterUrl.hs
+++ b/Command/RegisterUrl.hs
@@ -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