diff options
| author | Simon Peyton Jones <simonpj@microsoft.com> | 2012-10-12 18:08:23 +0100 |
|---|---|---|
| committer | Simon Peyton Jones <simonpj@microsoft.com> | 2012-10-12 18:08:23 +0100 |
| commit | 4780cbc13de5d527f481f7d78a46d9515378e1b5 (patch) | |
| tree | 76c2d0d58d00c3b64d9105b4799088bbd2903939 /compiler | |
| parent | 25dc2004b9c405d026e8fa9a2c325b33b6258acf (diff) | |
| download | haskell-4780cbc13de5d527f481f7d78a46d9515378e1b5.tar.gz | |
Add a type signature needed when using GADTs
Diffstat (limited to 'compiler')
| -rw-r--r-- | 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 5c4045778a..de9f35a798 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, .. } |