Commit 2c4b427c authored by batterseapower's avatar batterseapower

Add type signature necessary for GHC 7.0.4

parent 4d3d5a52
......@@ -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
......
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