From 6880d6aa1e6e96579bbff89712efd813489cc828 Mon Sep 17 00:00:00 2001
From: Sylvain Henry <sylvain@haskus.fr>
Date: Mon, 3 Feb 2020 17:57:29 +0100
Subject: Disentangle DynFlags and SDoc

Remove several uses of `sdocWithDynFlags`. The remaining ones are mostly
CodeGen related (e.g. depend on target platform constants) and will be
fixed separately.

Metric Decrease:
   T12425
   T9961
   WWRec
   T1969
   T14683
---
 compiler/GHC/CmmToLlvm/CodeGen.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'compiler/GHC/CmmToLlvm/CodeGen.hs')

diff --git a/compiler/GHC/CmmToLlvm/CodeGen.hs b/compiler/GHC/CmmToLlvm/CodeGen.hs
index 33dd82c418..947ba31f35 100644
--- a/compiler/GHC/CmmToLlvm/CodeGen.hs
+++ b/compiler/GHC/CmmToLlvm/CodeGen.hs
@@ -1505,7 +1505,7 @@ genMachOp_slow opt op [x, y] = case op of
                     -- Error. Continue anyway so we can debug the generated ll file.
                     dflags <- getDynFlags
                     let style = mkCodeStyle CStyle
-                        toString doc = renderWithStyle dflags doc style
+                        toString doc = renderWithStyle (initSDocContext dflags style) doc
                         cmmToStr = (lines . toString . PprCmm.pprExpr)
                     statement $ Comment $ map fsLit $ cmmToStr x
                     statement $ Comment $ map fsLit $ cmmToStr y
-- 
cgit v1.2.1