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

exclude derived metadata when extracting metadata from a viewed file

Browse source
This commit is contained in:
Joey Hess 2014-02-22 18:16:28 -04:00
parent c6fae24f7c
commit fa6f553083
1 changed files with 9 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

13
Annex/View.hs
View file

@ -211,14 +211,19 @@ pathProduct (l:ls) = foldl combinel l ls
combinel xs ys = [combine x y | x <- xs, y <- ys] combinel xs ys = [combine x y | x <- xs, y <- ys]
{- Extracts the metadata from a ViewedFile, based on the view that was used {- Extracts the metadata from a ViewedFile, based on the view that was used
- to construct it. -} - to construct it.
-
- Derived metadata is excluded.
-}
fromView :: View -> ViewedFile -> MetaData fromView :: View -> ViewedFile -> MetaData
fromView view f = foldr (uncurry updateMetaData) newMetaData (zip fields values) fromView view f = MetaData $
M.fromList (zip fields values) `M.difference` derived
where where
visible = filter viewVisible (viewComponents view) visible = filter viewVisible (viewComponents view)
fields = map viewField visible fields = map viewField visible
paths = splitDirectories $ dropFileName f paths = splitDirectories (dropFileName f)
values = map fromViewPath paths values = map (S.singleton . fromViewPath) paths
MetaData derived = getViewedFileMetaData f
{- Constructing a view that will match arbitrary metadata, and applying {- Constructing a view that will match arbitrary metadata, and applying
- it to a file yields a set of ViewedFile which all contain the same - it to a file yields a set of ViewedFile which all contain the same