Commit 4780cbc1 authored by Simon Peyton Jones's avatar Simon Peyton Jones
Browse files

Add a type signature needed when using GADTs

parent 25dc2004
......@@ -258,6 +258,7 @@ collectContInfo blocks
(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, .. }
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment