diff options
| author | Simon Marlow <marlowsd@gmail.com> | 2012-08-07 14:37:17 +0100 |
|---|---|---|
| committer | Simon Marlow <marlowsd@gmail.com> | 2012-08-07 15:50:38 +0100 |
| commit | 313740eaa95c5a5ed53528473b86ff39bf67d736 (patch) | |
| tree | 21a38236c007a10454e6eff7f1ca279ae7a8ab5e /compiler/codeGen | |
| parent | df7a20ce1e489540c7a07560b0850206244c51ae (diff) | |
| download | haskell-313740eaa95c5a5ed53528473b86ff39bf67d736.tar.gz | |
fix a warning
Diffstat (limited to 'compiler/codeGen')
| -rw-r--r-- | compiler/codeGen/StgCmmBind.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/compiler/codeGen/StgCmmBind.hs b/compiler/codeGen/StgCmmBind.hs index e15afeecd2..e97352446e 100644 --- a/compiler/codeGen/StgCmmBind.hs +++ b/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 |