github/semantic
1
1
Fork 0
mirror of https://github.com/github/semantic.git synced 2024-12-25 07:55:12 +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 , insert
, filterWithKey , filterWithKey
, pairs , pairs
, keys
, module Reducer , module Reducer
) where ) where
@ -42,9 +41,6 @@ filterWithKey f = Map . Map.filterWithKey f . unMap
pairs :: Map key value -> [(key, value)] pairs :: Map key value -> [(key, value)]
pairs = Map.toList . unMap pairs = Map.toList . unMap
keys :: Map key value -> [key]
keys = Map.keys . unMap
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)