Skip to content

Instantly share code, notes, and snippets.

@itkovian

itkovian/gist:5143640

Created March 12, 2013 15:03
Show Gist options
  • Save itkovian/5143640 to your computer and use it in GitHub Desktop.
Save itkovian/5143640 to your computer and use it in GitHub Desktop.
Download ZIP
Raw
gistfile1.hs
import qualified Data.Map as M
import Data.Monoid
data MMap k a = MMap (M.Map k a)
instance (Ord k, Monoid a) => Monoid (MMap k a) where
mempty = MMap M.empty
(MMap m1) `mappend` (MMap m2) = MMap (M.unionWith mappend m1 m2)
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment