diff options
| author | Simon Marlow <marlowsd@gmail.com> | 2012-08-07 14:51:44 +0100 |
|---|---|---|
| committer | Simon Marlow <marlowsd@gmail.com> | 2012-08-07 15:50:39 +0100 |
| commit | 62ab993766579d3912e10e4bde6ad1d0dc11109a (patch) | |
| tree | 2703db69f115334fed40d672370eb2473f453534 /compiler/codeGen | |
| parent | 396f09031b363bf2f0d2afa28a86e67a0628a696 (diff) | |
| download | haskell-62ab993766579d3912e10e4bde6ad1d0dc11109a.tar.gz | |
fix 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 6a8c232d90..5aec9e3bbe 100644 --- a/compiler/codeGen/StgCmmBind.hs +++ b/compiler/codeGen/StgCmmBind.hs @@ -418,7 +418,7 @@ closureCodeBody top_lvl bndr cl_info cc args arity body fv_details -- Emit the main entry code ; emitClosureProcAndInfoTable top_lvl bndr lf_info info_tbl args $ - \(offset, node, arg_regs) -> do + \(_offset, node, arg_regs) -> do -- Emit slow-entry code (for entering a closure through a PAP) { mkSlowEntryCode cl_info arg_regs |