A more useful Monoid instance for Data.Map