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

lookupkey: Allow using --ref in a bare repository.

Browse source
This commit is contained in:
Joey Hess 2024-08-30 10:48:10 -04:00
parent e2b7895cbc
commit 242c525659
No known key found for this signature in database
GPG key ID: DB12DB0FF05F8F38
4 changed files with 22 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

10
Command/LookupKey.hs
View file

@ -15,7 +15,7 @@ import Utility.Terminal
import Utility.SafeOutput
cmd :: Command
cmd = notBareRepo $ noCommit $ noMessages $
cmd = noCommit $ noMessages $
command "lookupkey" SectionPlumbing
"looks up key used for file"
(paramRepeating paramFile)
@ -35,9 +35,11 @@ optParser = LookupKeyOptions
run :: LookupKeyOptions -> SeekInput -> String -> Annex Bool
run o _ file
| refOption o = catKey (Ref (toRawFilePath file)) >>= display
| otherwise = seekSingleGitFile file >>= \case
Nothing -> return False
Just file' -> catKeyFile file' >>= display
| otherwise = do
checkNotBareRepo
seekSingleGitFile file >>= \case
Nothing -> return False
Just file' -> catKeyFile file' >>= display
display :: Maybe Key -> Annex Bool
display (Just k) = do