`unionsWith` would be a nice addition `unionsWith :: Foldable f => (NonEmpty a -> b) -> f (HashMap k a) -> HashMap k b`