diff options
| author | Krzysztof Gogolewski <krzysztof.gogolewski@tweag.io> | 2022-09-05 19:08:13 +0200 |
|---|---|---|
| committer | Krzysztof Gogolewski <krzysztof.gogolewski@tweag.io> | 2022-09-06 18:22:38 +0200 |
| commit | 6560d4416ec1dc8a25c842523c7ae83c271b9315 (patch) | |
| tree | 5b0ff2e70160bd488d405848491bc354b03296e6 /compiler/GHC/CmmToLlvm/Ppr.hs | |
| parent | 25f68acedf822e9ea21d1659b1f897fcfc96e5d4 (diff) | |
| download | haskell-6560d4416ec1dc8a25c842523c7ae83c271b9315.tar.gz | |
Minor SDoc cleanup
Change calls to renderWithContext with showSDocOneLine; it's more
efficient and explanatory.
Remove polyPatSig (unused)
Diffstat (limited to 'compiler/GHC/CmmToLlvm/Ppr.hs')
| -rw-r--r-- | compiler/GHC/CmmToLlvm/Ppr.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/compiler/GHC/CmmToLlvm/Ppr.hs b/compiler/GHC/CmmToLlvm/Ppr.hs index e71093adaf..8b0577bad7 100644 --- a/compiler/GHC/CmmToLlvm/Ppr.hs +++ b/compiler/GHC/CmmToLlvm/Ppr.hs @@ -56,7 +56,7 @@ pprLlvmCmmDecl (CmmProc mb_info entry_lbl live (ListGraph blks)) funDec <- llvmFunSig live lbl link cfg <- getConfig platform <- getPlatform - let buildArg = fsLit . renderWithContext (llvmCgContext cfg). ppPlainName cfg + let buildArg = fsLit . showSDocOneLine (llvmCgContext cfg). ppPlainName cfg funArgs = map buildArg (llvmFunArgs platform live) funSect = llvmFunSection cfg (decName funDec) |