diff options
| author | Daniel Burrows <dburrows@debian.org> | 2009-04-04 11:23:05 -0700 |
|---|---|---|
| committer | Daniel Burrows <dburrows@debian.org> | 2009-04-04 11:23:05 -0700 |
| commit | cec50fa5a6fd2fe399c871f3a7e7ee9a005e8508 (patch) | |
| tree | 5009a9c2510cfb021049f59464834e060ac3a11d /tools | |
| parent | 8032154337f93da7fa0f8c968ace142dd6675099 (diff) | |
| download | aptitude-cec50fa5a6fd2fe399c871f3a7e7ee9a005e8508.tar.gz | |
Fix support for showing a graph starting at a particular step.
Diffstat (limited to 'tools')
| -rw-r--r-- | tools/resolver-visualize/DotRender.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/tools/resolver-visualize/DotRender.hs b/tools/resolver-visualize/DotRender.hs index 4aac7310..c6d42760 100644 --- a/tools/resolver-visualize/DotRender.hs +++ b/tools/resolver-visualize/DotRender.hs @@ -102,7 +102,7 @@ dotOrderEdges steps = renderDot :: Params -> [ProcessingStep] -> Digraph renderDot params steps = let droppedSteps = maybe steps (\n -> genericDrop n steps) (firstStep params) - truncatedSteps = maybe steps (\n -> genericTake n steps) (maxSteps params) in + truncatedSteps = maybe droppedSteps (\n -> genericTake n droppedSteps) (maxSteps params) in if null truncatedSteps then error "No steps to render." else let stepNodes = map (dotStepNode params) truncatedSteps |