Permalink
Browse files

fix a warning

  • Loading branch information...
1 parent df7a20c commit 313740eaa95c5a5ed53528473b86ff39bf67d736 @simonmar simonmar committed Aug 7, 2012
Showing with 1 addition and 1 deletion.
  1. +1 −1 compiler/codeGen/StgCmmBind.hs
@@ -395,7 +395,7 @@ closureCodeBody :: Bool -- whether this is a top-level binding
argSatisfactionCheck (by calling fetchAndReschedule).
There info if Node points to closure is available. -- HWL -}
-closureCodeBody top_lvl bndr cl_info cc args arity body fv_details
+closureCodeBody top_lvl bndr cl_info cc _args arity body fv_details
| arity == 0 -- No args i.e. thunk
= emitClosureProcAndInfoTable top_lvl bndr lf_info info_tbl [] $
\(_, node, _) -> thunkCode cl_info fv_details cc node arity body

0 comments on commit 313740e

Please sign in to comment.