diff options
author | Joey Hess <joeyh@joeyh.name> | 2017-10-25 15:11:12 -0400 |
---|---|---|
committer | Joey Hess <joeyh@joeyh.name> | 2017-10-25 15:11:38 -0400 |
commit | a757a9136683147a942f384b304b9a3326321171 (patch) | |
tree | 2102a4b3ff43977a73fd114eb7f85650846e53dd /Annex/MetaData.hs | |
parent | b34c046c441f52621c389ec90d28c72d4fbbced7 (diff) |
Add day to metadata when annex.genmetadata is enabled.
Thanks, Sean T Parsons
Diffstat (limited to 'Annex/MetaData.hs')
-rw-r--r-- | Annex/MetaData.hs | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/Annex/MetaData.hs b/Annex/MetaData.hs index e22ed05a6..355c5124a 100644 --- a/Annex/MetaData.hs +++ b/Annex/MetaData.hs @@ -60,10 +60,11 @@ dateMetaData :: UTCTime -> MetaData -> MetaData dateMetaData mtime old = MetaData $ M.fromList $ filter isnew [ (yearMetaField, S.singleton $ toMetaValue $ show y) , (monthMetaField, S.singleton $ toMetaValue $ show m) + , (dayMetaField, S.singleton $ toMetaValue $ show d) ] where isnew (f, _) = S.null (currentMetaDataValues f old) - (y, m, _d) = toGregorian $ utctDay mtime + (y, m, d) = toGregorian $ utctDay mtime {- Parses field=value, field+=value, field-=value, field?=value -} parseModMeta :: String -> Either String ModMeta |