Remove fixed TODO
parent
41d8503d7e
commit
107233fbad
|
@ -326,7 +326,6 @@ have the originally expected key, it is not updated.
|
||||||
-}
|
-}
|
||||||
update : String -> (Maybe a -> Maybe a) -> Hashdict a -> Hashdict a
|
update : String -> (Maybe a -> Maybe a) -> Hashdict a -> Hashdict a
|
||||||
update key f ((Hashdict h) as hd) =
|
update key f ((Hashdict h) as hd) =
|
||||||
-- TODO: Write test for this
|
|
||||||
case f (get key hd) of
|
case f (get key hd) of
|
||||||
Just v ->
|
Just v ->
|
||||||
if h.hash v == key then
|
if h.hash v == key then
|
||||||
|
|
Loading…
Reference in New Issue