[project @ 2001-02-26 15:06:57 by simonmar]

[ghc-hetmet.git] / ghc / compiler / utils / Outputable.lhs

diff --git a/ghc/compiler/utils/Outputable.lhs b/ghc/compiler/utils/Outputable.lhs
index 4ffb74d..c8e454d 100644 (file)
--- a/ghc/compiler/utils/Outputable.lhs
+++ b/ghc/compiler/utils/Outputable.lhs
@@ -34,7 +34,8 @@ module Outputable (
        printSDoc, printErrs, printDump,
        printForC, printForAsm, printForIface, printForUser,
        pprCode, pprCols,
-       showSDoc, showSDocDebug, showSDocIface, showSDocUnqual, showsPrecSDoc,
+       showSDoc, showSDocForUser, showSDocDebug, showSDocIface, 
+       showSDocUnqual, showsPrecSDoc,
        pprHsChar, pprHsString,
 
 
@@ -203,6 +204,9 @@ pprCode cs d = withPprStyle (PprCode cs) d
 showSDoc :: SDoc -> String
 showSDoc d = show (d defaultUserStyle)
 
+showSDocForUser :: PrintUnqualified -> SDoc -> String
+showSDocForUser unqual doc = show (doc (mkUserStyle unqual AllTheWay))
+
 showSDocUnqual :: SDoc -> String
 -- Only used in the gruesome HsExpr.isOperator
 showSDocUnqual d = show (d (mkUserStyle neverQualify AllTheWay))