Repository : ssh://darcs.haskell.org//srv/darcs/ghc On branch : master
http://hackage.haskell.org/trac/ghc/changeset/956911e4ae9f58550fd5b86c8a0b0b2590e6e3eb >--------------------------------------------------------------- commit 956911e4ae9f58550fd5b86c8a0b0b2590e6e3eb Author: Ian Lynagh <[email protected]> Date: Thu Jun 14 16:24:32 2012 +0100 Be strict in the DynFlags inside an SDoc This is safe now that the tracingDynFlags is not just a call to panic. Not sure if it was causing a problem as it was, but this change should help make sure we don't get a chain of thunks built up inside SDocs. >--------------------------------------------------------------- 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 b2ad099..cbe4f84 100644 --- a/compiler/utils/Outputable.lhs +++ b/compiler/utils/Outputable.lhs @@ -238,7 +238,7 @@ data SDocContext = SDC { sdocStyle :: !PprStyle , sdocLastColour :: !PprColour -- ^ The most recently used colour. This allows nesting colours. - , sdocDynFlags :: DynFlags + , sdocDynFlags :: !DynFlags } initSDocContext :: DynFlags -> PprStyle -> SDocContext _______________________________________________ Cvs-ghc mailing list [email protected] http://www.haskell.org/mailman/listinfo/cvs-ghc
