fix warning
authorSimon Marlow <marlowsd@gmail.com>
Tue, 7 Aug 2012 13:51:44 +0000 (14:51 +0100)
committerSimon Marlow <marlowsd@gmail.com>
Tue, 7 Aug 2012 14:50:39 +0000 (15:50 +0100)
compiler/codeGen/StgCmmBind.hs

index 6a8c232..5aec9e3 100644 (file)
@@ -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