Repository : ssh://darcs.haskell.org//srv/darcs/ghc On branch : master
http://hackage.haskell.org/trac/ghc/changeset/06d8c131a5438b8bd8e35cbef73383dc29923fa8 >--------------------------------------------------------------- commit 06d8c131a5438b8bd8e35cbef73383dc29923fa8 Author: Ian Lynagh <[email protected]> Date: Fri Jul 13 18:15:57 2012 +0100 Don't use tracingDynFlags in assertPprPanic It wasn't needed, but was left over as an oversight >--------------------------------------------------------------- compiler/utils/Outputable.lhs | 2 +- 1 files changed, 1 insertions(+), 1 deletions(-) diff --git a/compiler/utils/Outputable.lhs b/compiler/utils/Outputable.lhs index 93dfd33..436b164 100644 --- a/compiler/utils/Outputable.lhs +++ b/compiler/utils/Outputable.lhs @@ -934,7 +934,7 @@ assertPprPanic :: String -> Int -> SDoc -> a -- ^ Panic with an assertation failure, recording the given file and line number. -- Should typically be accessed with the ASSERT family of macros assertPprPanic file line msg - = pprDebugAndThen tracingDynFlags panic "ASSERT failed!" doc + = pprPanic "ASSERT failed!" doc where doc = sep [ hsep [ text "file", text file , text "line", int line ] _______________________________________________ Cvs-ghc mailing list [email protected] http://www.haskell.org/mailman/listinfo/cvs-ghc
