X-Git-Url: https://git.cielonegro.org/gitweb.cgi?a=blobdiff_plain;f=Types%2FData%2FGraph.hs;h=3e551bc933a08e2a459a0e9f55f1eb3242470d58;hb=3dfbcb787a2770ce2d73a44aa2a10058023b8123;hp=9c5e65e576d0310abd3d51173b91da0c546c1c49;hpb=4ab5e37719b3dc47ede5055a18be4eb544c21b40;p=hs-rrdtool.git

diff --git a/Types/Data/Graph.hs b/Types/Data/Graph.hs
index 9c5e65e..3e551bc 100644
--- a/Types/Data/Graph.hs
+++ b/Types/Data/Graph.hs
@@ -109,7 +109,7 @@ type instance Match' (Just (Context p node' label s)) node (Graph g)
     = Decomp (Just (Context (M.Delete node p)
                             node
                             label
-                            (M.Delete node s)))
+                            s))
              (Graph (ClearSucc (ClearPred (M.Delete node g)
                                           node
                                           (M.Keys (M.Delete node s)))