summaryrefslogtreecommitdiff
path: root/rts/Printer.c
diff options
context:
space:
mode:
Diffstat (limited to 'rts/Printer.c')
-rw-r--r--rts/Printer.c2
1 files changed, 1 insertions, 1 deletions
diff --git a/rts/Printer.c b/rts/Printer.c
index a7ce367833..737fba4f20 100644
--- a/rts/Printer.c
+++ b/rts/Printer.c
@@ -91,7 +91,7 @@ printThunkPayload( StgThunk *obj )
StgWord i, j;
const StgInfoTable* info;
- info = get_itbl(obj);
+ info = get_itbl((StgClosure *)obj);
for (i = 0; i < info->layout.payload.ptrs; ++i) {
debugBelch(", ");
printPtr((StgPtr)obj->payload[i]);