diff options
Diffstat (limited to 'Types/MetaData.hs')
| -rw-r--r-- | Types/MetaData.hs | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/Types/MetaData.hs b/Types/MetaData.hs index bc27c345f..3e437e791 100644 --- a/Types/MetaData.hs +++ b/Types/MetaData.hs @@ -1,6 +1,7 @@ {- git-annex general metadata - - Copyright 2014 Joey Hess <id@joeyh.name> + - Copyright 2022 Benjamin Barenblat <bbarenblat@gmail.com> - - Licensed under the GNU GPL version 3 or higher. -} @@ -46,7 +47,7 @@ import Utility.QuickCheck import qualified Data.Text as T import qualified Data.Set as S -import qualified Data.Map as M +import qualified Data.Map.Strict as M import qualified Data.HashMap.Strict as HM import Data.Char import qualified Data.CaseInsensitive as CI @@ -208,7 +209,7 @@ updateMetaData f v = updateMetaData' f (S.singleton v) updateMetaData' :: MetaField -> S.Set MetaValue -> MetaData -> MetaData updateMetaData' f s (MetaData m) = MetaData $ - M.insertWith' S.union f s m + M.insertWith S.union f s m {- New metadata overrides old._-} unionMetaData :: MetaData -> MetaData -> MetaData |