Commit f2d9034a authored by Nicolas Pouillard's avatar Nicolas Pouillard

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

parent 98e64947
Pipeline #1302 failed with stage
module Gargantext.Data.HashMap.Strict.Utils where
import Data.Hashable (Hashable)
import Data.HashMap.Strict (HashMap)
import qualified Data.HashMap.Strict as HM
import Gargantext.Prelude
unionsWith :: (Foldable f, Eq k, Hashable k) => (a->a->a) -> f (HashMap k a) -> HashMap k a
unionsWith f = foldl' (HM.unionWith f) HM.empty
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment