From: Simon Marlow <simonmar@microsoft.com>
Date: Wed, 13 Jun 2007 09:52:01 +0000 (+0000)
Subject: should be using GET_CON_DESC() to get the constructor name
X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=commitdiff_plain;h=62d948405f6b9a95fe4b31b7cffa387e5425d6db

should be using GET_CON_DESC() to get the constructor name
---

diff --git a/rts/Printer.c b/rts/Printer.c
index 7364edd..b33d238 100644
--- 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);