[commit: Cabal] master: produce a bit more compact debugging output (e2611a2)

[Ian Lynagh]

Repository : ssh://darcs.haskell.org//srv/darcs/packages/Cabal

On branch  : master

http://hackage.haskell.org/trac/ghc/changeset/e2611a279af8f100532e6c3bfca18fb2d35d244e

>---------------------------------------------------------------

commit e2611a279af8f100532e6c3bfca18fb2d35d244e
Author: Andres Loeh <andres at well-typed.com>
Date:   Wed Jun 15 11:42:13 2011 +0000

    produce a bit more compact debugging output

>---------------------------------------------------------------

 .../Client/Dependency/Modular/Message.hs           |    1 +
 1 files changed, 1 insertions(+), 0 deletions(-)

diff --git a/cabal-install/Distribution/Client/Dependency/Modular/Message.hs b/cabal-install/Distribution/Client/Dependency/Modular/Message.hs
index 82ce651..239d7b0 100644
--- a/cabal-install/Distribution/Client/Dependency/Modular/Message.hs
+++ b/cabal-install/Distribution/Client/Dependency/Modular/Message.hs
@@ -26,6 +26,7 @@ showMessages = go 0
     -- complex patterns
     go l (TryP pi : Enter : Failure fr : Leave : ms) = (atLevel l $ "rejecting: " ++ showPI pi ++ showFR fr) : go l ms
     go l (TryF qfn b : Enter : Failure fr : Leave : ms) = (atLevel l $ "rejecting: " ++ showQFNBool qfn b ++ showFR fr) : go l ms
+    go l (Next (Goal (Simple (Dep _ _)) gr) : TryP pi : ms@(Enter : Next _ : _)) = (atLevel l $ "trying: " ++ showPI pi ++ showGR gr) : go l ms
     -- standard display
     go l (Enter      : ms) = go (l+1) ms
     go l (Leave      : ms) = go (l-1) ms