From 283cf9900aa69fda7be6fbbb653bb29eadb18541 Mon Sep 17 00:00:00 2001
From: aarne <aarne@cs.chalmers.se>
Date: Thu, 10 May 2007 14:06:45 +0000
Subject: [PATCH] ids for GF rather than BNFC in AbsToBNF

---
 src/GF/Canon/AbsToBNF.hs | 8 +++++++-
 1 file changed, 7 insertions(+), 1 deletion(-)

diff --git a/src/GF/Canon/AbsToBNF.hs b/src/GF/Canon/AbsToBNF.hs
index 71845971c..e30e836da 100644
--- a/src/GF/Canon/AbsToBNF.hs
+++ b/src/GF/Canon/AbsToBNF.hs
@@ -5,6 +5,8 @@ import GF.Data.Operations
 import GF.Infra.Option
 import GF.Canon.GFC (CanonGrammar)
 
+-- AR 10/5/2007
+
 abstract2bnf :: CanonGrammar -> String
 abstract2bnf = sgrammar2bnf . gr2sgr noOptions emptyProbs
 
@@ -25,7 +27,11 @@ mkBNF (pfun,(args,cat)) =
      [] -> prQuotedString (snd pfun)
      _ -> unwords (map gfId args)
 
-gfId i = case i of
+-- good for GF
+gfId i = i
+
+-- good for BNFC
+gfIdd i = case i of
   "Int"    -> "Integer"
   "String" -> i 
   "Float"  -> "Double"