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

Added a new helper function to Utils for transforming Map values monadically

Browse Source
This commit is contained in:
Neil Brown 2008-05-13 23:24:43 +00:00
parent 89c25e3f6c
commit 3ca4ee1a5e
1 changed files with 7 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
common/Utils.hs
View File

@ -300,3 +300,10 @@ replaceAt n rep es = [if i == n then rep else e | (e, i) <- zip es [0..]]
-- | A type that can contain any 'Data' item. -- | A type that can contain any 'Data' item.
data DataBox = forall t. Data t => DataBox t data DataBox = forall t. Data t => DataBox t
-- 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 f m = liftM Map.fromAscList $ mapM f' $ Map.toAscList m
where
f' (x,y) = do y' <- f y
return (x, y')