[commit: ghc] master: another minor refactoring (4343d5a)

[git at git.haskell.org]

Repository : ssh://git@git.haskell.org/ghc

On branch  : master
Link       : http://ghc.haskell.org/trac/ghc/changeset/4343d5af30d4b4fffb8be05616736e5920b6999a/ghc

>---------------------------------------------------------------

commit 4343d5af30d4b4fffb8be05616736e5920b6999a
Author: Gabor Greif <ggreif at gmail.com>
Date:   Tue Nov 20 16:35:08 2018 +0100

    another minor refactoring


>---------------------------------------------------------------

4343d5af30d4b4fffb8be05616736e5920b6999a
 compiler/llvmGen/Llvm/PpLlvm.hs | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

diff --git a/compiler/llvmGen/Llvm/PpLlvm.hs b/compiler/llvmGen/Llvm/PpLlvm.hs
index b350ab4..b534276 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 ->