diff options
Diffstat (limited to 'Command')
| -rw-r--r-- | Command/MetaData.hs | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/Command/MetaData.hs b/Command/MetaData.hs index 46d112162..d932315ab 100644 --- a/Command/MetaData.hs +++ b/Command/MetaData.hs @@ -12,7 +12,6 @@ import qualified Annex import Command import Annex.MetaData import Logs.MetaData -import Types.MetaData import qualified Data.Set as S import Data.Time.Clock.POSIX @@ -84,7 +83,7 @@ perform :: POSIXTime -> [ModMeta] -> Key -> CommandPerform perform _ [] k = next $ cleanup k perform now ms k = do oldm <- getCurrentMetaData k - let m = foldl' unionMetaData emptyMetaData $ map (modMeta oldm) ms + let m = combineMetaData $ map (modMeta oldm) ms addMetaData' k m now next $ cleanup k |