Repository : ssh://darcs.haskell.org//srv/darcs/ghc On branch : master
http://hackage.haskell.org/trac/ghc/changeset/5c3a415b0dbe9465a27e609f9ad9ce90ab332dde >--------------------------------------------------------------- commit 5c3a415b0dbe9465a27e609f9ad9ce90ab332dde Author: Ian Lynagh <[email protected]> Date: Mon Jun 11 23:36:43 2012 +0100 Pass DynFlags down to showSDocUnqual >--------------------------------------------------------------- compiler/utils/Outputable.lhs | 4 ++-- 1 files changed, 2 insertions(+), 2 deletions(-) diff --git a/compiler/utils/Outputable.lhs b/compiler/utils/Outputable.lhs index 6ca88cf..364786e 100644 --- a/compiler/utils/Outputable.lhs +++ b/compiler/utils/Outputable.lhs @@ -380,9 +380,9 @@ showSDocForUser :: DynFlags -> PrintUnqualified -> SDoc -> String showSDocForUser _ unqual doc = show (runSDoc doc (initSDocContext (mkUserStyle unqual AllTheWay))) -showSDocUnqual :: SDoc -> String +showSDocUnqual :: DynFlags -> SDoc -> String -- Only used in the gruesome isOperator -showSDocUnqual d +showSDocUnqual _ d = show (runSDoc d (initSDocContext (mkUserStyle neverQualify AllTheWay))) showsPrecSDoc :: Int -> SDoc -> ShowS _______________________________________________ Cvs-ghc mailing list [email protected] http://www.haskell.org/mailman/listinfo/cvs-ghc
