diff options
| author | krasimir <krasimir@chalmers.se> | 2009-09-23 06:28:36 +0000 |
|---|---|---|
| committer | krasimir <krasimir@chalmers.se> | 2009-09-23 06:28:36 +0000 |
| commit | ea10ce93c4cda765c474732cbdf7ed23e55b2755 (patch) | |
| tree | fad25625faa9d9ec20688e854429c0541cba09ca | |
| parent | 884747508ecdaf307a941e1932a0939c232c6c8f (diff) | |
the pmcfg_pretty printer now prints the actual grammar used for parsing
| -rw-r--r-- | src/PGF/PMCFG.hs | 2 |
1 files changed, 1 insertions, 1 deletions
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" $$
|