src/Gargantext/Data/HashMap/Strict/Utils.hs

   1 module Gargantext.Data.HashMap.Strict.Utils where
   2
   3 import Data.Hashable (Hashable)
   4 import Data.HashMap.Strict (HashMap)
   5 import qualified Data.HashMap.Strict as HM
   6 import Gargantext.Prelude
   7
   8 unionsWith :: (Foldable f, Eq k, Hashable k) => (a->a->a) -> f (HashMap k a) -> HashMap k a
   9 unionsWith f = foldl' (HM.unionWith f) HM.empty