suzanne.soy/tock-mirror
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Added a mapMapWithKeyM function to Utils, and cleaned up some of the whitespace

Browse Source
This commit is contained in:
Neil Brown 2008-05-14 12:18:27 +00:00
parent e3bf321f33
commit e843ce5022
1 changed files with 14 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
common/Utils.hs
View File

@ -303,7 +303,14 @@ data DataBox = forall t. Data t => DataBox t
-- A version of mapM that acts on the values in maps. -- A version of mapM that acts on the values in maps.
mapMapM :: (Ord a, Monad m) => (b -> m c) -> Map.Map a b -> m (Map.Map a c) mapMapM :: (Ord a, Monad m) => (b -> m c) -> Map.Map a b -> m (Map.Map a c)
mapMapM f m = liftM Map.fromAscList $ mapM f' $ Map.toAscList m mapMapM f m = mapMapWithKeyM (const f) m
-- A version of mapM that acts on the values in maps.
mapMapWithKeyM :: (Ord a, Monad m) => (a -> b -> m c) -> Map.Map a b -> m (Map.Map a c)
mapMapWithKeyM f m = liftM Map.fromAscList $ mapM f' $ Map.toAscList m
where where
f' (x,y) = do y' <- f y f' (x,y) = do y' <- f x y
return (x, y') return (x, y')