Update of /cvsroot/htoolkit/port/src/Port
In directory sc8-pr-cvs1:/tmp/cvs-serv16950/src/Port
Modified Files:
PtrMap.hs
Log Message:
add update and adjust functions to PtrMap
Index: PtrMap.hs
===================================================================
RCS file: /cvsroot/htoolkit/port/src/Port/PtrMap.hs,v
retrieving revision 1.1.1.1
retrieving revision 1.2
diff -C2 -d -r1.1.1.1 -r1.2
*** PtrMap.hs 20 Jan 2003 11:56:25 -0000 1.1.1.1
--- PtrMap.hs 14 Mar 2003 15:13:56 -0000 1.2
***************
*** 21,24 ****
--- 21,25 ----
, insertWith
, elems, keys
+ , update, adjust
) where
***************
*** 69,70 ****
--- 70,77 ----
keys m
= map ptrFromInt (M.keys m)
+
+ update :: (b -> Maybe b) -> Ptr a -> PtrMap a b -> PtrMap a b
+ update f k m = M.update f (intFromPtr k) m
+
+ adjust :: (b -> b) -> Ptr a -> PtrMap a b -> PtrMap a b
+ adjust f k m = M.adjust f (intFromPtr k) m
|
