diff options
| author | Gabor Greif <ggreif@gmail.com> | 2018-11-20 16:35:08 +0100 |
|---|---|---|
| committer | Gabor Greif <ggreif@gmail.com> | 2018-11-22 10:53:26 +0100 |
| commit | 4343d5af30d4b4fffb8be05616736e5920b6999a (patch) | |
| tree | ae400b9ef43ab22126e00092e8678031f1753c5c /compiler/llvmGen | |
| parent | 691aa715cf43bf9d88ee32bca37e471bae35adfb (diff) | |
| download | haskell-4343d5af30d4b4fffb8be05616736e5920b6999a.tar.gz | |
another minor refactoring
Diffstat (limited to 'compiler/llvmGen')
| -rw-r--r-- | compiler/llvmGen/Llvm/PpLlvm.hs | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/compiler/llvmGen/Llvm/PpLlvm.hs b/compiler/llvmGen/Llvm/PpLlvm.hs index b350ab408d..b534276f08 100644 --- a/compiler/llvmGen/Llvm/PpLlvm.hs +++ b/compiler/llvmGen/Llvm/PpLlvm.hs @@ -80,11 +80,11 @@ ppLlvmGlobal (LMGlobal var@(LMGlobalVar _ _ link x a c) dat) = -- Position of linkage is different for aliases. const = case c of - Global -> text "global" - Constant -> text "constant" - Alias -> text "alias" + Global -> "global" + Constant -> "constant" + Alias -> "alias" - in ppAssignment var $ ppr link <+> const <+> rhs <> sect <> align + in ppAssignment var $ ppr link <+> text const <+> rhs <> sect <> align $+$ newLine ppLlvmGlobal (LMGlobal var val) = sdocWithDynFlags $ \dflags -> |