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

improve display of relative path to file

Browse source 
When in a subdirectory, and the file is too, it used to display eg
../subdir/thefile and now will display thefile.
This commit is contained in:
Joey Hess 2023-04-12 15:11:44 -04:00
parent 317887c4d2
commit 275d974120
No known key found for this signature in database
GPG key ID: DB12DB0FF05F8F38
1 changed files with 2 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

3
Command/WhereUsed.hs
View file

@ -57,7 +57,8 @@ seek o = withKeyOptions (Just (keyOptions o)) False dummyfileseeker
start :: WhereUsedOptions -> (SeekInput, Key, ActionItem) -> CommandStart start :: WhereUsedOptions -> (SeekInput, Key, ActionItem) -> CommandStart
start o (_, key, _) = startingCustomOutput key $ do start o (_, key, _) = startingCustomOutput key $ do
fs <- filterM stillassociated fs <- filterM stillassociated
=<< mapM (liftIO . relPathCwdToFile)
=<< mapM (fromRepo . fromTopFilePath) =<< mapM (fromRepo . fromTopFilePath)
=<< getAssociatedFiles key =<< getAssociatedFiles key
forM_ fs $ display key . QuotedPath forM_ fs $ display key . QuotedPath