From 781f9cae99c83302eeea0e9adde25beae2bccf79 Mon Sep 17 00:00:00 2001
From: Ian Lynagh <igloo@earth.li>
Date: Wed, 25 May 2011 15:53:44 +0100
Subject: [PATCH] More DynFlags + SDoc
---
compiler/utils/Outputable.lhs | 6 +++---
1 file changed, 3 insertions(+), 3 deletions(-)
diff --git a/compiler/utils/Outputable.lhs b/compiler/utils/Outputable.lhs
index 6a9c5d552006..ca2adbb1183b 100644
--- a/compiler/utils/Outputable.lhs
+++ b/compiler/utils/Outputable.lhs
@@ -363,10 +363,10 @@ printForC dflags handle doc =
Pretty.printDoc LeftMode handle
(runSDoc doc (initSDocContext' dflags (PprCode CStyle)))
-printForAsm :: Handle -> SDoc -> IO ()
-printForAsm handle doc =
+printForAsm :: DynFlags -> Handle -> SDoc -> IO ()
+printForAsm dflags handle doc =
Pretty.printDoc LeftMode handle
- (runSDoc doc (initSDocContext (PprCode AsmStyle)))
+ (runSDoc doc (initSDocContext' dflags (PprCode AsmStyle)))
pprCode :: CodeStyle -> SDoc -> SDoc
pprCode cs d = withPprStyle (PprCode cs) d
--
GitLab