From 7b486702f450edf038e4a76cbb5b275f45edc13b Mon Sep 17 00:00:00 2001 From: "Jost, Steffen" Date: Thu, 27 Mar 2025 11:33:06 +0000 Subject: [PATCH] Add map creating utility after merge confligt --- backend/src/Utils.hs | 5 +++++ 1 file changed, 5 insertions(+) diff --git a/backend/src/Utils.hs b/backend/src/Utils.hs index d89688145..5bc514f51 100644 --- a/backend/src/Utils.hs +++ b/backend/src/Utils.hs @@ -932,6 +932,11 @@ mapFromSetM = (sequenceA .) . Map.fromSet setToMap :: (Ord k) => (v -> k) -> Set v -> Map k v setToMap mkKey = Map.fromList . fmap (\x -> (mkKey x, x)) . Set.toList +-- Create a Map given a key-computation +-- For Entity, use Utils.DB.entities2map instead +mapFromFoldable :: (Ord k, Foldable t) => (v -> k) -> t v -> Map k v +mapFromFoldable getKey = foldMap (Map.singleton =<< getKey) + mapFM :: (Applicative m, Ord k, Finite k) => (k -> m v) -> m (Map k v) mapFM = sequenceA . mapF