From: sof <unknown>
Date: Fri, 14 Aug 1998 11:13:09 +0000 (+0000)
Subject: [project @ 1998-08-14 11:13:09 by sof]
X-Git-Tag: Approx_2487_patches~425
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;ds=inline;h=384ab1783d093c85465a72fe00f2a4289bf44084;p=ghc-hetmet.git

[project @ 1998-08-14 11:13:09 by sof]
new exported function: pprCode
---

diff --git a/ghc/compiler/utils/Outputable.lhs b/ghc/compiler/utils/Outputable.lhs
index c34404b..2bc535e 100644
--- a/ghc/compiler/utils/Outputable.lhs
+++ b/ghc/compiler/utils/Outputable.lhs
@@ -10,7 +10,7 @@ Defines classes for pretty-printing and forcing, both forms of
 module Outputable (
 	Outputable(..),			-- Class
 
-	PprStyle, 
+	PprStyle, CodeStyle(..),
 	getPprStyle, withPprStyle, pprDeeper,
 	codeStyle, ifaceStyle, userStyle, debugStyle, asmStyle,
 	ifPprDebug, ifNotPprForUser,
@@ -32,7 +32,7 @@ module Outputable (
 
 	showSDoc, printSDoc, printErrs, printDump, 
 	printForC, printForAsm, printForIface,
-	pprCols,
+	pprCode, pprCols,
 
 	-- error handling
 	pprPanic, pprPanic#, pprError, pprTrace, assertPprPanic,
@@ -46,8 +46,7 @@ import CmdLineOpts	( opt_PprStyle_All, opt_PprStyle_Debug, opt_PprUserLength )
 import FastString
 import qualified Pretty
 import Pretty		( Doc, Mode(..), TextDetails(..), fullRender )
-import Util		( panic, assertPanic, panic# )
-import GlaExts		( trace )
+import Util		( panic, assertPanic, panic#, trace )
 \end{code}
 
 
@@ -169,6 +168,8 @@ printForAsm handle doc = printDoc LeftMode handle (doc (PprCode AsmStyle))
 printForIface :: Handle -> SDoc -> IO ()
 printForIface handle doc = printDoc OneLineMode handle (doc PprInterface)
 
+pprCode :: CodeStyle -> SDoc -> SDoc
+pprCode cs d = withPprStyle (PprCode cs) d
 
 -- showSDoc just blasts it out as a string
 showSDoc :: SDoc -> String