From: Ian Lynagh <igloo@earth.li>
Date: Tue, 31 Mar 2009 17:41:03 +0000 (+0000)
Subject: Make the showSDoc definition more explicit
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=692cbe67dee453cf47b2c5a11527f08fa6d1899a;p=ghc-hetmet.git

Make the showSDoc definition more explicit
---

diff --git a/compiler/utils/Outputable.lhs b/compiler/utils/Outputable.lhs
index fb0270f..8c9c7c7 100644
--- a/compiler/utils/Outputable.lhs
+++ b/compiler/utils/Outputable.lhs
@@ -316,7 +316,7 @@ mkCodeStyle = PprCode
 -- However, Doc *is* an instance of Show
 -- showSDoc just blasts it out as a string
 showSDoc :: SDoc -> String
-showSDoc d = show (d defaultUserStyle)
+showSDoc d = Pretty.showDocWith PageMode (d defaultUserStyle)
 
 showSDocForUser :: PrintUnqualified -> SDoc -> String
 showSDocForUser unqual doc = show (doc (mkUserStyle unqual AllTheWay))