From: Simon Marlow <marlowsd@gmail.com>
Date: Thu, 16 Dec 2010 10:57:23 +0000 (+0000)
Subject: fix a warning
X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=commitdiff_plain;h=0c69ee73d423dba8bf86336654a12a208b050bda

fix a warning
---

diff --git a/rts/sm/Evac.c b/rts/sm/Evac.c
index 65da076..17e756f 100644
--- a/rts/sm/Evac.c
+++ b/rts/sm/Evac.c
@@ -943,7 +943,7 @@ selector_loop:
               // For the purposes of LDV profiling, we have destroyed
               // the original selector thunk, p.
               SET_INFO(p, (StgInfoTable *)info_ptr);
-              OVERWRITING_CLOSURE(p);
+              OVERWRITING_CLOSURE((StgClosure*)p);
               SET_INFO(p, &stg_WHITEHOLE_info);
 #endif