From b6a011c734f9b9eb574dcfb3f3b41ea467a7d4ea Mon Sep 17 00:00:00 2001
From: krasimir <krasimir@chalmers.se>
Date: Wed, 23 Sep 2009 06:28:36 +0000
Subject: [PATCH] the pmcfg_pretty printer now prints the actual grammar used
 for parsing

---
 src/PGF/PMCFG.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/PGF/PMCFG.hs b/src/PGF/PMCFG.hs
index 4957f5295..f7c2eea29 100644
--- a/src/PGF/PMCFG.hs
+++ b/src/PGF/PMCFG.hs
@@ -56,7 +56,7 @@ isLiteralFCat = (`elem` [fcatString, fcatInt, fcatFloat, fcatVar])
 ppPMCFG :: ParserInfo -> Doc
 ppPMCFG pinfo =
   text "productions" $$
-  nest 2 (vcat [ppProduction (fcat,prod) | (fcat,set) <- IntMap.toList (productions0 pinfo), prod <- Set.toList set]) $$
+  nest 2 (vcat [ppProduction (fcat,prod) | (fcat,set) <- IntMap.toList (productions pinfo), prod <- Set.toList set]) $$
   text "functions" $$
   nest 2 (vcat (map ppFun (assocs (functions pinfo)))) $$
   text "sequences" $$