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: Niklas Hambuechen <[email protected]> --- src/Ganeti/JSON.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/Ganeti/JSON.hs b/src/Ganeti/JSON.hs index 6240edf..dd155f8 100644 --- a/src/Ganeti/JSON.hs +++ b/src/Ganeti/JSON.hs @@ -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. -- 2.1.0.rc2.206.gedb03e5
