diff options
| author | Daniel Burrows <dburrows@debian.org> | 2009-04-08 19:11:43 -0700 |
|---|---|---|
| committer | Daniel Burrows <dburrows@debian.org> | 2009-04-08 19:11:43 -0700 |
| commit | 83359f2166e2b4e7b3a0540d1d12a3343f1ee723 (patch) | |
| tree | 46a70f31efbb9af2ca92934f21741c205edb4e32 /tools | |
| parent | 1510eaea4d10dbfb3429a3ddda9edd8a7a09fc5a (diff) | |
| download | aptitude-83359f2166e2b4e7b3a0540d1d12a3343f1ee723.tar.gz | |
The other half of the fix for detecting forced dependencies in the new log format.
Diffstat (limited to 'tools')
| -rw-r--r-- | tools/resolver-visualize/Resolver/Log.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/tools/resolver-visualize/Resolver/Log.hs b/tools/resolver-visualize/Resolver/Log.hs index b548142b..95642fc3 100644 --- a/tools/resolver-visualize/Resolver/Log.hs +++ b/tools/resolver-visualize/Resolver/Log.hs @@ -516,8 +516,8 @@ processNewPromotionLine source matches = -- | Process a line of the log file that starts successor generation. processSuccessorsStartLine :: ByteString -> MatchArray -> LogParse () processSuccessorsStartLine source matches = - do d <- parseMatch dep source (matches!4) - let forced = extract (matches!1) source == BS.pack "Forced resolution of" + do d <- parseMatch dep source (matches!5) + let forced = extract (matches!3) source == BS.pack "Forced resolution " d `seq` forced `seq` setGeneratingSuccessorsInfo $ Just (GeneratingSuccessorsInfo { generatingForced = forced, generatingDep = d }) |