From: PHO Date: Mon, 26 Apr 2010 14:11:50 +0000 (+0900) Subject: slight improvement...? X-Git-Url: http://git.cielonegro.org/gitweb.cgi?p=hs-rrdtool.git;a=commitdiff_plain slight improvement...? --- 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