github/semantic
1
1
Fork 0
mirror of https://github.com/github/semantic.git synced 2024-12-22 22:31:36 +03:00
Code Issues Projects Releases Wiki Activity

Define intersectionWith.

Browse Source
This commit is contained in:
Rob Rix 2015-12-14 17:00:30 -05:00
parent 253f21d885
commit 1e7dc0ff98
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/OrderedMap.hs
View File

@ -9,6 +9,7 @@ module OrderedMap (
, empty , empty
, union , union
, unions , unions
, intersectionWith
) where ) where
data OrderedMap key value = OrderedMap { toList :: [(key, value)] } data OrderedMap key value = OrderedMap { toList :: [(key, value)] }
@ -42,3 +43,6 @@ union (OrderedMap a) (OrderedMap b) = OrderedMap $ a ++ filter (not . (`elem` ex
unions :: Eq key => [OrderedMap key value] -> OrderedMap key value unions :: Eq key => [OrderedMap key value] -> OrderedMap key value
unions = foldl union empty unions = foldl union empty
intersectionWith :: Eq key => (a -> b -> c) -> OrderedMap key a -> OrderedMap key b -> OrderedMap key c
intersectionWith combine (OrderedMap a) (OrderedMap b) = OrderedMap $ a >>= (\ (key, value) -> maybe [] (pure . ((,) key) . combine value) $ Prelude.lookup key b)