From b6446ec36dcb537f39d38893f8cbe8c355c1b504 Mon Sep 17 00:00:00 2001 From: krasimir Date: Mon, 6 Dec 2010 14:19:51 +0000 Subject: simple refactoring in PGF.Macros and related --- src/runtime/haskell/PGF/VisualizeTree.hs | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'src/runtime/haskell/PGF/VisualizeTree.hs') diff --git a/src/runtime/haskell/PGF/VisualizeTree.hs b/src/runtime/haskell/PGF/VisualizeTree.hs index c054e1e78..dfb1cbd75 100644 --- a/src/runtime/haskell/PGF/VisualizeTree.hs +++ b/src/runtime/haskell/PGF/VisualizeTree.hs @@ -65,7 +65,7 @@ graphvizAbstractTree pgf (funs,cats) = render . tree2graph getApp e es = (e,es) getLbl scope (EFun f) = let fun = if funs then ppCId f else empty - cat = if cats then ppCId (lookValCat pgf f) else empty + cat = if cats then ppCId (lookValCat (abstract pgf) f) else empty sep = if funs && cats then colon else empty in fun <+> sep <+> cat getLbl scope (ELit l) = text (escapeStr (render (ppLit l))) @@ -503,7 +503,7 @@ graphvizDependencyTree format debug mlab ms pgf lang tr = case format of wnodes = [[show i, maltws ws, showCId fun, pos, pos, morph, show dom, lab, unspec, unspec] | (i, ((fun,p),ws)) <- tail nodeWords, - let pos = showCId $ lookValCat pgf fun, + let pos = showCId $ lookValCat (abstract pgf) fun, let morph = unspec, let (dom,lab) = lookDomLab p ] -- cgit v1.2.3