summaryrefslogtreecommitdiff
path: root/rts/Printer.c
diff options
context:
space:
mode:
authorSimon Marlow <simonmar@microsoft.com>2007-06-13 09:52:01 +0000
committerSimon Marlow <simonmar@microsoft.com>2007-06-13 09:52:01 +0000
commit62d948405f6b9a95fe4b31b7cffa387e5425d6db (patch)
treed22e10c158682883bad07e49d1c9277d749c32e5 /rts/Printer.c
parentedb58a77c7d4aa4c17e3114fe7ac733df5e745ab (diff)
downloadhaskell-62d948405f6b9a95fe4b31b7cffa387e5425d6db.tar.gz
should be using GET_CON_DESC() to get the constructor name
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 7364edd37f..b33d238476 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);