[commit: ghc] wip/kavon-nosplit-llvm: less spaces so its more readable and less bytes (0925923)

[git at git.haskell.org]

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

On branch  : wip/kavon-nosplit-llvm
Link       : http://ghc.haskell.org/trac/ghc/changeset/09259235df5112b6dc0a04ac1a588570962c059f/ghc

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

commit 09259235df5112b6dc0a04ac1a588570962c059f
Author: Kavon Farvardin <kavon at farvard.in>
Date:   Thu Jun 1 16:21:42 2017 +0100

    less spaces so its more readable and less bytes


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

09259235df5112b6dc0a04ac1a588570962c059f
 compiler/llvmGen/Llvm/PpLlvm.hs | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/compiler/llvmGen/Llvm/PpLlvm.hs b/compiler/llvmGen/Llvm/PpLlvm.hs
index 5812340..ab95aed 100644
--- a/compiler/llvmGen/Llvm/PpLlvm.hs
+++ b/compiler/llvmGen/Llvm/PpLlvm.hs
@@ -268,9 +268,9 @@ ppCall ct fptr args attrs = case fptr of
         ppCall' (LlvmFunctionDecl _ _ cc ret argTy params _) =
             let tc = if ct == TailCall then text "tail " else empty
                 ppValues = hsep $ punctuate comma $ map ppCallMetaExpr args
-                ppArgTy  = (ppCommaJoin $ map fst params) <>
+                ppArgTy  = (ppSlimCommaJoin $ map fst params) <>
                            (case argTy of
-                               VarArgs   -> text ", ..."
+                               VarArgs   -> text ",..."
                                FixedArgs -> empty)
                 fnty = space <> lparen <> ppArgTy <> rparen
                 attrDoc = ppSpaceJoin attrs