diff options
Diffstat (limited to 'compiler/GHC/CmmToLlvm/Base.hs')
| -rw-r--r-- | compiler/GHC/CmmToLlvm/Base.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/compiler/GHC/CmmToLlvm/Base.hs b/compiler/GHC/CmmToLlvm/Base.hs index d891fd17b3..17fa7394a7 100644 --- a/compiler/GHC/CmmToLlvm/Base.hs +++ b/compiler/GHC/CmmToLlvm/Base.hs @@ -440,7 +440,7 @@ strCLabel_llvm :: CLabel -> LlvmM LMString strCLabel_llvm lbl = do ctx <- llvmCgContext <$> getConfig platform <- getPlatform - let sdoc = pprCLabel platform CStyle lbl + let sdoc = pprCLabel platform lbl str = Outp.showSDocOneLine ctx sdoc return (fsLit str) |