Pass DynFlags to renderWithStyle
authorIan Lynagh <igloo@earth.li>
Mon, 11 Jun 2012 21:54:17 +0000 (22:54 +0100)
committerIan Lynagh <igloo@earth.li>
Mon, 11 Jun 2012 21:54:17 +0000 (22:54 +0100)
compiler/nativeGen/AsmCodeGen.lhs
compiler/utils/Outputable.lhs

index e976e58..d624cc1 100644 (file)
@@ -553,7 +553,7 @@ makeImportsDoc dflags imports
                 | otherwise
                 = Pretty.empty
 
-        doPpr lbl = (lbl, renderWithStyle (pprCLabel platform lbl) astyle)
+        doPpr lbl = (lbl, renderWithStyle dflags (pprCLabel platform lbl) astyle)
         astyle = mkCodeStyle AsmStyle
 
 
index e9cfaec..ff41927 100644 (file)
@@ -364,8 +364,8 @@ showSDoc d =
   Pretty.showDocWith PageMode
     (runSDoc d (initSDocContext defaultUserStyle))
 
-renderWithStyle :: SDoc -> PprStyle -> String
-renderWithStyle sdoc sty =
+renderWithStyle :: DynFlags -> SDoc -> PprStyle -> String
+renderWithStyle sdoc sty =
   Pretty.render (runSDoc sdoc (initSDocContext sty))
 
 -- This shows an SDoc, but on one line only. It's cheaper than a full