summaryrefslogtreecommitdiff
path: root/tools
diff options
context:
space:
mode:
authorDaniel Burrows <dburrows@debian.org>2009-04-08 19:11:19 -0700
committerDaniel Burrows <dburrows@debian.org>2009-04-08 19:11:19 -0700
commit1510eaea4d10dbfb3429a3ddda9edd8a7a09fc5a (patch)
treec53f311bbe2564881ac5be9172eae3f207749091 /tools
parent6d4196a68b2909d684df0fe4d25ed03cad57b4bf (diff)
downloadaptitude-1510eaea4d10dbfb3429a3ddda9edd8a7a09fc5a.tar.gz
Be more strict when generated backpropagations.
Diffstat (limited to 'tools')
-rw-r--r--tools/resolver-visualize/Resolver/Log.hs5
1 files changed, 4 insertions, 1 deletions
diff --git a/tools/resolver-visualize/Resolver/Log.hs b/tools/resolver-visualize/Resolver/Log.hs
index 0563d8d3..b548142b 100644
--- a/tools/resolver-visualize/Resolver/Log.hs
+++ b/tools/resolver-visualize/Resolver/Log.hs
@@ -419,7 +419,10 @@ setPromotionBackpropagationState sol =
addBackpropagatedPromotionToCurrentStep :: Solution -> Promotion -> LogParse ()
addBackpropagatedPromotionToCurrentStep p sol =
p `seq` sol `seq`
- modifyLastStep (\lastStep -> lastStep {
+ modifyLastStep (\lastStep -> let pair = (p, sol)
+ props = pstepReverseBackpropagations lastStep
+ props' = pair:props in
+ pair `seq` props `seq` props' `seq` lastStep {
pstepReverseBackpropagations =
(p, sol):(pstepReverseBackpropagations lastStep)
})