diff options
| author |  Joey Hess <joey@kitenet.net> | 2014-02-23 00:08:29 -0400 |
|---|---|---|
| committer | Joey Hess <joey@kitenet.net> | 2014-02-23 00:08:29 -0400 |
| commit | 704fa2fa789b453d354f2f375b0b42481c8990f6 (patch) | |
| tree | afb28b2548c067be546b22fa6b04fa8b5d76c3fd /Command/MetaData.hs | |
| parent | e0ae2f6bba897367ae23bfb1a6584ebd4843452e (diff) | |
annex.genmetadata can be set to make git-annex automatically set metadata (year and month) when adding files
Diffstat (limited to 'Command/MetaData.hs')
| -rw-r--r-- | Command/MetaData.hs | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/Command/MetaData.hs b/Command/MetaData.hs index 6112dd095..651cb4944 100644 --- a/Command/MetaData.hs +++ b/Command/MetaData.hs @@ -10,6 +10,7 @@ module Command.MetaData where import Common.Annex import qualified Annex import Command +import Annex.MetaData import Logs.MetaData import Types.MetaData @@ -55,7 +56,7 @@ perform :: POSIXTime -> [ModMeta] -> Key -> CommandPerform perform _ [] k = next $ cleanup k perform now ms k = do oldm <- getCurrentMetaData k - let m = foldl' unionMetaData newMetaData $ map (modMeta oldm) ms + let m = foldl' unionMetaData emptyMetaData $ map (modMeta oldm) ms addMetaData' k m now next $ cleanup k |