diff options
Diffstat (limited to 'rts/Printer.c')
| -rw-r--r-- | rts/Printer.c | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/rts/Printer.c b/rts/Printer.c index 2396707aae..637cd9a861 100644 --- a/rts/Printer.c +++ b/rts/Printer.c @@ -297,8 +297,8 @@ printClosure( StgClosure *obj ) { StgWord i; debugBelch("ARR_WORDS(\""); - for (i=0; i<arr_words_words((StgArrWords *)obj); i++) - debugBelch("%" FMT_Word, (W_)((StgArrWords *)obj)->payload[i]); + for (i=0; i<arr_words_words((StgArrBytes *)obj); i++) + debugBelch("%" FMT_Word, (W_)((StgArrBytes *)obj)->payload[i]); debugBelch("\")\n"); break; } |