diff options
Diffstat (limited to 'compiler/GHC/Llvm/Ppr.hs')
| -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 '!' |