1
1
mirror of https://github.com/github/semantic.git synced 2024-12-24 23:42:31 +03:00

🔥 keys.

This commit is contained in:
Rob Rix 2018-06-25 18:01:03 -04:00
parent fcb7ae815e
commit fa68f6b8f3

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)