Allow find --branch to be used in a bare repository, the same as the deprecated findref can be

This will allow later fully deprecating and removing findref.

Sponsored-by: Erik Bjäreholt on Patreon

CHANGELOG

@@ -8,6 +8,8 @@ git-annex (10.20220725) UNRELEASED; urgency=medium
     concurrency is enabled.
   * stack.yaml: Updated to lts-19.16
   * Added new matching options --want-get-by and --want-drop-by.
+  * Allow find --branch to be used in a bare repository, the same as
+    the deprecated findref can be.
 
  -- Joey Hess <id@joeyh.name>  Mon, 25 Jul 2022 15:35:45 -0400
 

Command.hs

@@ -122,7 +122,10 @@ repoExists :: CommandCheck
 repoExists = CommandCheck 0 ensureInitialized
 
 notBareRepo :: Command -> Command
-notBareRepo = addCheck $ whenM (fromRepo Git.repoIsLocalBare) $
+notBareRepo = addCheck checkNotBareRepo
+
+checkNotBareRepo :: Annex ()
+checkNotBareRepo = whenM (fromRepo Git.repoIsLocalBare) $
 	giveup "You cannot run this command in a bare repository."
 
 noDaemonRunning :: Command -> Command

Command/Find.hs

@@ -21,7 +21,7 @@ import qualified Utility.Format
 import Utility.DataUnits
 
 cmd :: Command
-cmd = notBareRepo $ withAnnexOptions [annexedMatchingOptions] $ mkCommand $
+cmd = withAnnexOptions [annexedMatchingOptions] $ mkCommand $
 	command "find" SectionQuery "lists available files"
 		paramPaths (seek <$$> optParser)
 
@@ -55,6 +55,8 @@ parseFormatOption =
 
 seek :: FindOptions -> CommandSeek
 seek o = do
+	unless (isJust (keyOptions o)) $
+		checkNotBareRepo
 	islimited <- limited
 	let seeker = AnnexedFileSeeker
 		{ startAction = start o