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

fix view reversion caused by optimisation

Browse source 
view: Fix a reversion in 10.20230214 that omitted a file from a view when
the file had no metadata set, but the view only used path fields.

Sponsored-by: Jack Hill on Patreon
This commit is contained in:
Joey Hess 2023-02-16 15:06:44 -04:00
parent 1c2e5b4519
commit da61d564f1
No known key found for this signature in database
GPG key ID: DB12DB0FF05F8F38
4 changed files with 21 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

4
Annex/View.hs
View file

@ -489,8 +489,8 @@ applyView'' mkviewedfile getfilemetadata view l clean conv = do
getmetadata gc mdfeeder mdcloser ts
process uh mdreader = liftIO mdreader >>= \case
Just ((topf, _, _, Just k), Just mdlog) -> do
let metadata = parseCurrentMetaData mdlog
Just ((topf, _, _, Just k), mdlog) -> do
let metadata = maybe emptyMetaData parseCurrentMetaData mdlog
let f = fromRawFilePath $ getTopFilePath topf
let metadata' = getfilemetadata f `unionMetaData` metadata
forM_ (genviewedfiles f metadata') $ \fv -> do