github/semantic
1
1
Fork 0
mirror of https://github.com/github/semantic.git synced 2024-12-24 07:25:44 +03:00
Code Issues Projects Releases Wiki Activity

🔥 keys.

Browse Source
This commit is contained in:
Rob Rix 2018-06-25 18:01:03 -04:00
parent fcb7ae815e
commit fa68f6b8f3
1 changed files with 0 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -8,7 +8,6 @@ module Data.Map.Monoidal
, insert
, filterWithKey
, pairs
, keys
, module Reducer
) where
@ -42,9 +41,6 @@ filterWithKey f = Map . Map.filterWithKey f . unMap
pairs :: Map key value -> [(key, value)]
pairs = Map.toList . unMap
keys :: Map key value -> [key]
keys = Map.keys . unMap
instance (Ord key, Semigroup value) => Semigroup (Map key value) where
Map a <> Map b = Map (Map.unionWith (<>) a b)