github/semantic
1
1
Fork 0
mirror of https://github.com/github/semantic.git synced 2024-12-23 14:54:16 +03:00
Code Issues Projects Releases Wiki Activity

Define a Monoid instance for Map.

Browse Source
This commit is contained in:
Rob Rix 2018-03-07 12:26:32 -05:00
parent 303e55b403
commit f199e7fa73
1 changed files with 4 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
src/Data/Map/Monoidal.hs
View File

@ -10,3 +10,7 @@ newtype Map key value = Map { unMap :: Map.Map key value }
instance (Ord key, Semigroup value) => Semigroup (Map key value) where instance (Ord key, Semigroup value) => Semigroup (Map key value) where
Map a <> Map b = Map (Map.unionWith (<>) a b) Map a <> Map b = Map (Map.unionWith (<>) a b)
instance (Ord key, Semigroup value) => Monoid (Map key value) where
mempty = Map Map.empty
mappend = (<>)