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

really add non-date metadata too

Browse source
This commit is contained in:
Joey Hess 2014-07-03 14:35:20 -04:00
parent 4565b5263d
commit fc80956092
Failed to extract signature
2 changed files with 5 additions and 5 deletions
Download patch file Download diff file Expand all files Collapse all files

8
Annex/MetaData.hs
View file

@ -7,7 +7,7 @@
module Annex.MetaData (
genMetaData,
addDateMetaData,
dateMetaData,
module X
) where
@ -39,14 +39,14 @@ genMetaData key file status = do
maybe noop (flip copyMetaData key) =<< catKeyFileHEAD file
whenM (annexGenMetaData <$> Annex.getGitConfig) $ do
curr <- getCurrentMetaData key
addMetaData key (addDateMetaData mtime curr)
addMetaData key (dateMetaData mtime curr)
where
mtime = posixSecondsToUTCTime $ realToFrac $ modificationTime status
{- Generates metadata for a file's date stamp.
- Does not overwrite any existing metadata values. -}
addDateMetaData :: UTCTime -> MetaData -> MetaData
addDateMetaData mtime old = MetaData $ M.fromList $ filter isnew
dateMetaData :: UTCTime -> MetaData -> MetaData
dateMetaData mtime old = MetaData $ M.fromList $ filter isnew
[ (yearMetaField, S.singleton $ toMetaValue $ show y)
, (monthMetaField, S.singleton $ toMetaValue $ show m)
]