Add Dict.fromValues function
commit4e2086cc3d034d1f6e663e3ee0b045a9dd056505
authorEvan Czaplicki <evancz@users.noreply.github.com>
dateWed 15 May 2019, 10:27 (7 years ago)
parent03296b2
compiler/src/Data/Map/Utils.hs+6
@@ -1,6 +1,7 @@
11module Data.Map.Utils
22 ( fromKeys
33 , fromKeysA
4+ , fromValues
45 , any
56 )
67 where
@@ -25,6 +26,11 @@ fromKeysA toValue keys =
2526 Map.fromList <$> traverse (\k -> (,) k <$> toValue k) keys
2627
2728
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+
2834
2935-- ANY
3036