[commit: ghc] wip/llvm-3.6: Fix lints (39cdce5)

git at git.haskell.org git at git.haskell.org
Mon Jan 19 23:16:43 UTC 2015


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

On branch  : wip/llvm-3.6
Link       : http://ghc.haskell.org/trac/ghc/changeset/39cdce5ca11a231516f32df7ce5b76f9d420e43f/ghc

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

commit 39cdce5ca11a231516f32df7ce5b76f9d420e43f
Author: Ben Gamari <bgamari.foss at gmail.com>
Date:   Fri Nov 28 12:03:24 2014 -0500

    Fix lints


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

39cdce5ca11a231516f32df7ce5b76f9d420e43f
 compiler/llvmGen/LlvmCodeGen/Ppr.hs | 6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)

diff --git a/compiler/llvmGen/LlvmCodeGen/Ppr.hs b/compiler/llvmGen/LlvmCodeGen/Ppr.hs
index fdc1c3a..1a9373b 100644
--- a/compiler/llvmGen/LlvmCodeGen/Ppr.hs
+++ b/compiler/llvmGen/LlvmCodeGen/Ppr.hs
@@ -112,7 +112,8 @@ pprLlvmCmmDecl (CmmProc mb_info entry_lbl live (ListGraph blks))
 
        funDec <- llvmFunSig live lbl link
        dflags <- getDynFlags
-       let funArgs = map (fsLit . showSDoc dflags . ppPlainName) (llvmFunArgs dflags live)
+       let buildArg = fsLit . showSDoc dflags . ppPlainName
+           funArgs = map buildArg (llvmFunArgs dflags live)
 
        -- generate the info table
        prefix <- case mb_info of
@@ -122,7 +123,8 @@ pprLlvmCmmDecl (CmmProc mb_info entry_lbl live (ListGraph blks))
                        let infoTy = LMStruct $ map getStatType infoStatics
                        return $ Just $ LMStaticStruc infoStatics infoTy
 
-       let fun = LlvmFunction funDec funArgs llvmStdFunAttrs Nothing prefix lmblocks
+       let fun = LlvmFunction funDec funArgs llvmStdFunAttrs Nothing
+                              prefix lmblocks
            name = decName $ funcDecl fun
            defName = name `appendFS` fsLit "$def"
            funcDecl' = (funcDecl fun) { decName = defName }



More information about the ghc-commits mailing list