Commit fa5f77ec authored by Niklas Hambuechen's avatar Niklas Hambuechen Committed by Klaus Aehlig

Fix alterContainerL

The original version accidentally used `Map.update` instead of
`Map.alter`, which broke insertions (the function would only have
an effect if the key was already in the container).
Signed-off-by: default avatarNiklas Hambuechen <niklash@google.com>
Signed-off-by: default avatarKlaus Aehlig <aehlig@google.com>
Reviewed-by: default avatarKlaus Aehlig <aehlig@google.com>
parent 48cce81a
......@@ -338,7 +338,7 @@ alterContainerL :: (Functor f, Ord a)
-> GenericContainer a b
-> f (GenericContainer a b)
alterContainerL key f (GenericContainer m) =
fmap (\v -> GenericContainer $ Map.update (const v) key m)
fmap (\v -> GenericContainer $ Map.alter (const v) key m)
(f $ Map.lookup key m)
-- | Container loader.
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment