[commit: ghc] wip/llvm-3.6: Kill unused binding (2893517)

[git at git.haskell.org]

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

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

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

commit 289351774db47a0094afc7c57081c9dd06bbb062
Author: Ben Gamari <bgamari.foss at gmail.com>
Date:   Fri Nov 28 12:00:47 2014 -0500

    Kill unused binding


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

289351774db47a0094afc7c57081c9dd06bbb062
 compiler/llvmGen/LlvmCodeGen/Ppr.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/compiler/llvmGen/LlvmCodeGen/Ppr.hs b/compiler/llvmGen/LlvmCodeGen/Ppr.hs
index ecd1d3c..fdc1c3a 100644
--- a/compiler/llvmGen/LlvmCodeGen/Ppr.hs
+++ b/compiler/llvmGen/LlvmCodeGen/Ppr.hs
@@ -117,7 +117,7 @@ pprLlvmCmmDecl (CmmProc mb_info entry_lbl live (ListGraph blks))
        -- generate the info table
        prefix <- case mb_info of
                      Nothing -> return Nothing
-                     Just (Statics info_lbl statics) -> do
+                     Just (Statics _ statics) -> do
                        infoStatics <- mapM genData statics
                        let infoTy = LMStruct $ map getStatType infoStatics
                        return $ Just $ LMStaticStruc infoStatics infoTy