From: simonmar <unknown>
Date: Tue, 17 May 2005 13:05:45 +0000 (+0000)
Subject: [project @ 2005-05-17 13:05:45 by simonmar]
X-Git-Tag: Initial_conversion_from_CVS_complete~528
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=58645b584f32be38af65625006e327e73f2354eb;p=ghc-hetmet.git

[project @ 2005-05-17 13:05:45 by simonmar]
Add showSDocDump
---

diff --git a/ghc/compiler/utils/Outputable.lhs b/ghc/compiler/utils/Outputable.lhs
index e0e9bbb..f870b65 100644
--- a/ghc/compiler/utils/Outputable.lhs
+++ b/ghc/compiler/utils/Outputable.lhs
@@ -38,7 +38,7 @@ module Outputable (
 	printSDoc, printErrs, printDump,
 	printForC, printForAsm, printForUser,
 	pprCode, mkCodeStyle,
-	showSDoc, showSDocForUser, showSDocDebug,
+	showSDoc, showSDocForUser, showSDocDebug, showSDocDump,
 	showSDocUnqual, showsPrecSDoc,
 	pprHsChar, pprHsString,
 
@@ -209,9 +209,6 @@ printDump doc = do
    hFlush stdout
  where
    better_doc = doc $$ text ""
-    -- We used to always print in debug style, but I want
-    -- to try the effect of a more user-ish style (unless you
-    -- say -dppr-debug)
 
 printForUser :: Handle -> PrintUnqualified -> SDoc -> IO ()
 printForUser handle unqual doc 
@@ -246,6 +243,9 @@ showSDocUnqual d = show (d (mkUserStyle neverQualify AllTheWay))
 showsPrecSDoc :: Int -> SDoc -> ShowS
 showsPrecSDoc p d = showsPrec p (d defaultUserStyle)
 
+showSDocDump :: SDoc -> String
+showSDocDump d = show (d PprDump)
+
 showSDocDebug :: SDoc -> String
 showSDocDebug d = show (d PprDebug)
 \end{code}