[commit: ghc] master: Add a type signature needed when using GADTs (4780cbc)

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

On branch  : master

http://hackage.haskell.org/trac/ghc/changeset/4780cbc13de5d527f481f7d78a46d9515378e1b5

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

commit 4780cbc13de5d527f481f7d78a46d9515378e1b5
Author: Simon Peyton Jones <[email protected]>
Date:   Fri Oct 12 18:08:23 2012 +0100

    Add a type signature needed when using GADTs

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

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

diff --git a/compiler/cmm/CmmLayoutStack.hs b/compiler/cmm/CmmLayoutStack.hs
index 5c40457..de9f35a 100644
--- a/compiler/cmm/CmmLayoutStack.hs
+++ b/compiler/cmm/CmmLayoutStack.hs
@@ -258,6 +258,7 @@ collectContInfo blocks
  where
   (mb_argss, ret_offs) = mapAndUnzip get_cont blocks
 
+  get_cont :: Block CmmNode x C -> (Maybe (Label, ByteOff), ByteOff)
   get_cont b =
      case lastNode b of
         CmmCall { cml_cont = Just l, .. }