[commit: ghc] master: CmmLayoutStack: Minor simplification (8ecac25)

[git at git.haskell.org]

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

On branch  : master
Link       : http://ghc.haskell.org/trac/ghc/changeset/8ecac2512aed557b4f59fd697eabd3ef9ddfd6e9/ghc

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

commit 8ecac2512aed557b4f59fd697eabd3ef9ddfd6e9
Author: Ömer Sinan Ağacan <omeragacan at gmail.com>
Date:   Thu Aug 4 10:10:41 2016 +0000

    CmmLayoutStack: Minor simplification


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

8ecac2512aed557b4f59fd697eabd3ef9ddfd6e9
 compiler/cmm/CmmLayoutStack.hs | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/compiler/cmm/CmmLayoutStack.hs b/compiler/cmm/CmmLayoutStack.hs
index 37bd7a0..2536030 100644
--- a/compiler/cmm/CmmLayoutStack.hs
+++ b/compiler/cmm/CmmLayoutStack.hs
@@ -190,11 +190,11 @@ instance Outputable StackMap where
 cmmLayoutStack :: DynFlags -> ProcPointSet -> ByteOff -> CmmGraph
                -> UniqSM (CmmGraph, BlockEnv StackMap)
 cmmLayoutStack dflags procpoints entry_args
-               graph0@(CmmGraph { g_entry = entry })
+               graph@(CmmGraph { g_entry = entry })
   = do
     -- We need liveness info. Dead assignments are removed later
     -- by the sinking pass.
-    let (graph, liveness) = (graph0, cmmLocalLiveness dflags graph0)
+    let liveness = cmmLocalLiveness dflags graph
         blocks = postorderDfs graph
 
     (final_stackmaps, _final_high_sp, new_blocks) <-