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 <[email protected]> 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 _______________________________________________ Cvs-libraries mailing list [email protected] http://www.haskell.org/mailman/listinfo/cvs-libraries
