From ff573ca0dee9685ca188a1a42d2f63a414e3e7c6 Mon Sep 17 00:00:00 2001
From: krasimir <krasimir@chalmers.se>
Date: Mon, 9 Mar 2009 18:08:54 +0000
Subject: [PATCH] special cases for printing the build-in PMCFG categories

---
 src/PGF/PMCFG.hs | 8 +++++++-
 1 file changed, 7 insertions(+), 1 deletion(-)

diff --git a/src/PGF/PMCFG.hs b/src/PGF/PMCFG.hs
index 888dba796..9abeb73dc 100644
--- a/src/PGF/PMCFG.hs
+++ b/src/PGF/PMCFG.hs
@@ -85,6 +85,12 @@ ppSymbol (FSymCat d r) = char '<' <> int d <> comma <> int r <> char '>'
 ppSymbol (FSymLit d r) = char '<' <> int d <> comma <> int r <> char '>'
 ppSymbol (FSymTok (KS t))   = text (show t)
 
-ppFCat  fcat  = char 'C' <> int fcat
+ppFCat  fcat
+  | fcat == fcatString = text "String"
+  | fcat == fcatInt    = text "Int"
+  | fcat == fcatFloat  = text "Float"
+  | fcat == fcatVar    = text "Var"
+  | otherwise          = char 'C' <> int fcat
+
 ppFunId funid = char 'F' <> int funid
 ppSeqId seqid = char 'S' <> int seqid