Make seqAlts actually seq everything

a907e963 · Ian Lynagh · b56fa72c · a907e963
Commit a907e963 authored Feb 03, 2008 by Ian Lynagh
Hide whitespace changes
Inline Side-by-side

Showing with 1 addition and 1 deletion

compiler/coreSyn/CoreSyn.lhs compiler/coreSyn/CoreSyn.lhs +1 -1

No files found.
--- a/compiler/coreSyn/CoreSyn.lhs
+++ b/compiler/coreSyn/CoreSyn.lhs
@@ -667,7 +667,7 @@ seqPairs ((b,e):prs) = seqBndr b `seq` seqExpr e `seq` seqPairs prs

 seqAlts :: [CoreAlt] -> ()
 seqAlts [] = ()
-seqAlts ((_,bs,e):alts) = seqBndrs bs `seq` seqExpr e `seq` seqAlts alts
+seqAlts ((c,bs,e):alts) = c `seq` seqBndrs bs `seq` seqExpr e `seq` seqAlts alts

 seqRules :: [CoreRule] -> ()
 seqRules [] = ()