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

annex.genmetadata can be set to make git-annex automatically set metadata (year and month) when adding files

Browse source
This commit is contained in:
Joey Hess 2014-02-23 00:08:29 -04:00
parent fa6f553083
commit 7498c5dd96
13 changed files with 135 additions and 43 deletions
Download patch file Download diff file Expand all files Collapse all files

3
Annex/View.hs
View file

@ -300,8 +300,7 @@ applyView' mkviewedfile getfilemetadata view = do
genviewedfiles = viewedFiles view mkviewedfile -- enables memoization
go uh hasher f (Just (k, _)) = do
metadata <- getCurrentMetaData k
let dirmetadata = getfilemetadata f
let metadata' = unionMetaData dirmetadata metadata
let metadata' = getfilemetadata f `unionMetaData` metadata
forM_ (genviewedfiles f metadata') $ \fv -> do
stagesymlink uh hasher fv =<< inRepo (gitAnnexLink fv k)
go uh hasher f Nothing