diff options
author | Daniel Burrows <dburrows@debian.org> | 2009-04-08 19:11:19 -0700 |
---|---|---|
committer | Daniel Burrows <dburrows@debian.org> | 2009-04-08 19:11:19 -0700 |
commit | 1510eaea4d10dbfb3429a3ddda9edd8a7a09fc5a (patch) | |
tree | c53f311bbe2564881ac5be9172eae3f207749091 /tools | |
parent | 6d4196a68b2909d684df0fe4d25ed03cad57b4bf (diff) | |
download | aptitude-1510eaea4d10dbfb3429a3ddda9edd8a7a09fc5a.tar.gz |
Be more strict when generated backpropagations.
Diffstat (limited to 'tools')
-rw-r--r-- | tools/resolver-visualize/Resolver/Log.hs | 5 |
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) }) |