X-Git-Url: http://git.cielonegro.org/gitweb.cgi?p=hs-rrdtool.git;a=blobdiff_plain;f=Types%2FData%2FGraph.hs;h=2e130b3343f6ba91c21f81f8f9acdc80265992dd;hp=3e551bc933a08e2a459a0e9f55f1eb3242470d58;hb=2934589777d6fbdaca209613d3d596b2d022ddc3;hpb=3dfbcb787a2770ce2d73a44aa2a10058023b8123

diff --git a/Types/Data/Graph.hs b/Types/Data/Graph.hs
index 3e551bc..2e130b3 100644
--- a/Types/Data/Graph.hs
+++ b/Types/Data/Graph.hs
@@ -101,11 +101,11 @@ type instance L.App (AddPred'' n l) (Context ps n' l' ss)
 
 -- Match
 type family   Match node g
-type instance Match node (Graph g) = Match' (M.Lookup node g) node (Graph g)
+type instance Match node (Graph g) = Match' (M.Lookup node g) node g
 
 type family   Match' mContext node g
-type instance Match' Nothing                          node g = Decomp Nothing g
-type instance Match' (Just (Context p node' label s)) node (Graph g)
+type instance Match' Nothing  node g = Decomp Nothing (Graph g)
+type instance Match' (Just (Context p node' label s)) node g
     = Decomp (Just (Context (M.Delete node p)
                             node
                             label