4e2086c · elk · git.iko.soy

on master help sign in

Add Dict.fromValues function

4e2086cEvan Czaplicki7 years ago

compiler/src/Data/Map/Utils.hs+6

@@ -1,6 +1,7 @@

1module Data.Map.Utils

2 ( fromKeys

3 , fromKeysA

4+ , fromValues

4 , any

5 , any

5 )

6 )

6 where

7 where

@@ -25,6 +26,11 @@ fromKeysA toValue keys =

25 Map.fromList <$> traverse (\k -> (,) k <$> toValue k) keys

26 Map.fromList <$> traverse (\k -> (,) k <$> toValue k) keys

29+fromValues :: (Ord k) => (v -> k) -> [v] -> Map.Map k v

30+fromValues toKey values =

31+ Map.fromList $ map (\v -> (toKey v, v)) values

32+

33+

29-- ANY

35-- ANY