diff options
| author | krasimir <krasimir@chalmers.se> | 2010-12-06 14:19:51 +0000 |
|---|---|---|
| committer | krasimir <krasimir@chalmers.se> | 2010-12-06 14:19:51 +0000 |
| commit | b6446ec36dcb537f39d38893f8cbe8c355c1b504 (patch) | |
| tree | f6eababb1d764fe364f268f1a1959bc24f6b7c0a /src/runtime/haskell/PGF/VisualizeTree.hs | |
| parent | 0f444d889302b68f2b7edbe31e4ddcd37e45454a (diff) | |
simple refactoring in PGF.Macros and related
Diffstat (limited to 'src/runtime/haskell/PGF/VisualizeTree.hs')
| -rw-r--r-- | src/runtime/haskell/PGF/VisualizeTree.hs | 4 |
1 files changed, 2 insertions, 2 deletions
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 ] |