diff options
| author | Krzysztof Gogolewski <krzysztof.gogolewski@tweag.io> | 2023-03-01 18:04:35 +0100 |
|---|---|---|
| committer | Krzysztof Gogolewski <krzysztof.gogolewski@tweag.io> | 2023-03-01 18:04:35 +0100 |
| commit | 879e660927844f84945c1ac385b843fec7d77c72 (patch) | |
| tree | d3e1037309a2b75e3f4a7d98153a376d5056b777 | |
| parent | 074a0f97ff51efd691dbaef6458e74d75e6ed916 (diff) | |
| download | haskell-wip/test-llvm-hdoc.tar.gz | |
| -rw-r--r-- | compiler/GHC/Llvm/Ppr.hs | 20 |
1 files changed, 7 insertions, 13 deletions
diff --git a/compiler/GHC/Llvm/Ppr.hs b/compiler/GHC/Llvm/Ppr.hs index 36bfdf3405..d75941c5fe 100644 --- a/compiler/GHC/Llvm/Ppr.hs +++ b/compiler/GHC/Llvm/Ppr.hs @@ -51,11 +51,11 @@ import GHC.Types.Unique -- | Print out a whole LLVM module. ppLlvmModule :: IsDoc doc => LlvmCgConfig -> LlvmModule -> doc ppLlvmModule opts (LlvmModule comments aliases meta globals decls funcs) - = ppLlvmComments comments $$ newLine - $$ ppLlvmAliases aliases $$ newLine - $$ ppLlvmMetas opts meta $$ newLine - $$ ppLlvmGlobals opts globals $$ newLine - $$ ppLlvmFunctionDecls decls $$ newLine + = ppLlvmComments comments $$ empty + $$ ppLlvmAliases aliases $$ empty + $$ ppLlvmMetas opts meta $$ empty + $$ ppLlvmGlobals opts globals $$ empty + $$ ppLlvmFunctionDecls decls $$ empty $$ ppLlvmFunctions opts funcs {-# SPECIALIZE ppLlvmModule :: LlvmCgConfig -> LlvmModule -> SDoc #-} {-# SPECIALIZE ppLlvmModule :: LlvmCgConfig -> LlvmModule -> HDoc #-} -- see Note [SPECIALIZE to HDoc] in GHC.Utils.Outputable @@ -164,8 +164,8 @@ ppLlvmFunction opts fun = , line lbrace , ppLlvmBlocks opts (funcBody fun) , line rbrace - , newLine - , newLine] + , empty + , empty] {-# SPECIALIZE ppLlvmFunction :: LlvmCgConfig -> LlvmFunction -> SDoc #-} {-# SPECIALIZE ppLlvmFunction :: LlvmCgConfig -> LlvmFunction -> HDoc #-} -- see Note [SPECIALIZE to HDoc] in GHC.Utils.Outputable @@ -714,12 +714,6 @@ pprStaticArith opts s1 s2 int_op float_op op_name = -- * Misc functions -------------------------------------------------------------------------------- --- | Blank line. -newLine :: IsDoc doc => doc -newLine = empty -{-# SPECIALIZE newLine :: SDoc #-} -{-# SPECIALIZE newLine :: HDoc #-} - -- | Exclamation point. exclamation :: IsLine doc => doc exclamation = char '!' |