diff options
| author | Daniel Burrows <dburrows@debian.org> | 2009-04-04 11:08:28 -0700 |
|---|---|---|
| committer | Daniel Burrows <dburrows@debian.org> | 2009-04-04 11:08:28 -0700 |
| commit | 8032154337f93da7fa0f8c968ace142dd6675099 (patch) | |
| tree | 328dd94e6bd81fbf938648b4c9124ba422ba8453 /tools | |
| parent | 591f1910e35cfaa370a941b83e31fcf9cc02d692 (diff) | |
| download | aptitude-8032154337f93da7fa0f8c968ace142dd6675099.tar.gz | |
Highlight forced dependency resolutions.
These can, by design, force the search down in score or even to a
higher tier, so some apparent anomalies make more sense when the
forced steps are indicated. Currently they're bolded and (because
that's not very visible) also displayed in green.
Diffstat (limited to 'tools')
| -rw-r--r-- | tools/resolver-visualize/DotRender.hs | 11 |
1 files changed, 9 insertions, 2 deletions
diff --git a/tools/resolver-visualize/DotRender.hs b/tools/resolver-visualize/DotRender.hs index 373663b8..4aac7310 100644 --- a/tools/resolver-visualize/DotRender.hs +++ b/tools/resolver-visualize/DotRender.hs @@ -76,12 +76,19 @@ dotEdges params step = processed ++ unprocessed where processed = [ edge (node (name $ printf "step%d" (stepOrder step))) (node (name $ printf "step%d" (stepOrder step'))) <<< set "label" (dotChoiceLabel succChoice) + <<< forced `thenDo` + set "style" "bold" `andAlso` + set "color" "darkgreen" `andAlso` + set "labelcolor" "darkgreen" | Successor { successorStep = step', - successorChoice = succChoice } <- stepSuccessors step ] + successorChoice = succChoice, + successorForced = forced } <- stepSuccessors step ] unprocessed = [ edge (node (name $ printf "step%d" (stepOrder step))) (node (name $ printf "step%dunproc%d" (stepOrder step) stepNum)) <<< set "label" (dotChoiceLabel succChoice) - | ((Unprocessed { successorChoice = succChoice }), stepNum) + <<< forced `thenDo` set "style" "bold" + | ((Unprocessed { successorChoice = succChoice, + successorForced = forced }), stepNum) <- zip (stepSuccessors step) ([0..] :: [Integer]) ] dotOrderEdges steps = |