X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2Fcompiler%2Fparser%2Fprinttree.c;h=45c89be0ada659d4af2493b09f07841ed734707c;hb=0596517a9b4b2b32e5d375a986351102ac4540fc;hp=a5056ef6358035a471d5de639386a93d2867dc49;hpb=6c381e873e222417d9a67aeec77b9555eca7b7a8;p=ghc-hetmet.git

diff --git a/ghc/compiler/parser/printtree.c b/ghc/compiler/parser/printtree.c
index a5056ef..45c89be 100644
--- a/ghc/compiler/parser/printtree.c
+++ b/ghc/compiler/parser/printtree.c
@@ -500,7 +500,7 @@ prbind(b)
 			  PUTTAG('e');
 			  printf("#%lu\t",gibindline(b));
 			  pid(gibindfile(b));
-			  pid(gibindmod(b));
+			  pid(gibindimod(b));
 			  /* plist(pentid,giebindexp(b)); ??? */
 			  /* prbind(giebinddef(b)); ???? */
 			  break;
@@ -661,12 +661,12 @@ ppragma(p)
 				break;
 
       case iinst_simpl_pragma:	PUTTAGSTR("Pis");
-				pid(gprag_imod_simpl(p));
-				ppragma(gprag_dfun_simpl(p));
+/*				pid(gprag_imod_simpl(p));
+*/				ppragma(gprag_dfun_simpl(p));
 				break;
       case iinst_const_pragma:	PUTTAGSTR("Pic");
-				pid(gprag_imod_const(p));
-				ppragma(gprag_dfun_const(p));
+/*				pid(gprag_imod_const(p));
+*/				ppragma(gprag_dfun_const(p));
 				plist(ppragma, gprag_constms(p));
 				break;