Repository : ssh://darcs.haskell.org//srv/darcs/ghc On branch : sdoc
http://hackage.haskell.org/trac/ghc/changeset/781f9cae99c83302eeea0e9adde25beae2bccf79 >--------------------------------------------------------------- commit 781f9cae99c83302eeea0e9adde25beae2bccf79 Author: Ian Lynagh <[email protected]> Date: Wed May 25 15:53:44 2011 +0100 More DynFlags + SDoc >--------------------------------------------------------------- compiler/utils/Outputable.lhs | 6 +++--- 1 files changed, 3 insertions(+), 3 deletions(-) diff --git a/compiler/utils/Outputable.lhs b/compiler/utils/Outputable.lhs index 6a9c5d5..ca2adbb 100644 --- a/compiler/utils/Outputable.lhs +++ b/compiler/utils/Outputable.lhs @@ -363,10 +363,10 @@ printForC dflags handle doc = Pretty.printDoc LeftMode handle (runSDoc doc (initSDocContext' dflags (PprCode CStyle))) -printForAsm :: Handle -> SDoc -> IO () -printForAsm handle doc = +printForAsm :: DynFlags -> Handle -> SDoc -> IO () +printForAsm dflags handle doc = Pretty.printDoc LeftMode handle - (runSDoc doc (initSDocContext (PprCode AsmStyle))) + (runSDoc doc (initSDocContext' dflags (PprCode AsmStyle))) pprCode :: CodeStyle -> SDoc -> SDoc pprCode cs d = withPprStyle (PprCode cs) d _______________________________________________ Cvs-ghc mailing list [email protected] http://www.haskell.org/mailman/listinfo/cvs-ghc
