[commit: ghc] newcg: Add type signature necessary for GHC 7.0.4 (2c4b427)

[Max Bolingbroke]

Repository : ssh://darcs.haskell.org//srv/darcs/ghc

On branch  : newcg

http://hackage.haskell.org/trac/ghc/changeset/2c4b427cdef4198ead5546e77cf30c8b71ba02dd

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

commit 2c4b427cdef4198ead5546e77cf30c8b71ba02dd
Author: Max Bolingbroke <batterseapower at hotmail.com>
Date:   Fri Mar 9 23:47:46 2012 +0000

    Add type signature necessary for GHC 7.0.4

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

 compiler/cmm/CmmLayoutStack.hs |    3 ++-
 1 files changed, 2 insertions(+), 1 deletions(-)

diff --git a/compiler/cmm/CmmLayoutStack.hs b/compiler/cmm/CmmLayoutStack.hs
index 8c30f15..271f347 100644
--- a/compiler/cmm/CmmLayoutStack.hs
+++ b/compiler/cmm/CmmLayoutStack.hs
@@ -543,7 +543,8 @@ setupStackFrame lbl liveness updfr_off ret_args stack0
 
 futureContinuation :: Block CmmNode O O -> Maybe BlockId
 futureContinuation middle = foldBlockNodesB f middle Nothing
-   where f (CmmStore (CmmStackSlot (Young l) _) (CmmLit (CmmBlock _))) _
+   where f :: CmmNode a b -> Maybe BlockId -> Maybe BlockId
+         f (CmmStore (CmmStackSlot (Young l) _) (CmmLit (CmmBlock _))) _
                = Just l
          f _ r = r