From 692cbe67dee453cf47b2c5a11527f08fa6d1899a Mon Sep 17 00:00:00 2001 From: Ian Lynagh Date: Tue, 31 Mar 2009 17:41:03 +0000 Subject: [PATCH] Make the showSDoc definition more explicit --- compiler/utils/Outputable.lhs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) 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)) -- 1.7.10.4