should be using GET_CON_DESC() to get the constructor name

[ghc-hetmet.git] / rts / Printer.c

diff --git a/rts/Printer.c b/rts/Printer.c
index 7364edd..b33d238 100644 (file)
--- a/rts/Printer.c
+++ b/rts/Printer.c
@@ -1164,7 +1164,7 @@ void prettyPrintClosure_ (StgClosure *obj)
            con_info = get_con_itbl (obj);
 
            /* obtain the name of the constructor */
-           descriptor = con_info->con_desc;
+           descriptor = GET_CON_DESC(con_info);
 
            debugBelch ("(%s", descriptor);