From 2c48a10236bb19d8b04382cb1e957ce18b9d29fd Mon Sep 17 00:00:00 2001
From: bringert <unknown>
Date: Fri, 17 Jun 2005 13:15:16 +0000
Subject: Changed name of Con constructor in GFC.cf to avoid errors on Windows
 when generating Java code with BNFC for the GFC grammar. CON is a reserved
 filename on Windows. Con was changed to Par, and all the code using was
 changed too.

---
 src/GF/CF/PrLBNF.hs | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

(limited to 'src/GF/CF')

diff --git a/src/GF/CF/PrLBNF.hs b/src/GF/CF/PrLBNF.hs
index 2b655a820..4ba2019bc 100644
--- a/src/GF/CF/PrLBNF.hs
+++ b/src/GF/CF/PrLBNF.hs
@@ -5,9 +5,9 @@
 -- Stability   : (stable)
 -- Portability : (portable)
 --
--- > CVS $Date: 2005/04/21 16:21:14 $ 
+-- > CVS $Date: 2005/06/17 14:15:16 $ 
 -- > CVS $Author: bringert $
--- > CVS $Revision: 1.10 $
+-- > CVS $Revision: 1.11 $
 --
 -- Printing CF grammars generated from GF as LBNF grammar for BNFC.
 -- AR 26/1/2000 -- 9/6/2003 (PPrCF) -- 8/11/2003 -- 27/9/2004.
@@ -68,7 +68,7 @@ mkLBNF gr rules = (coercions, nub $ concatMap mkRule rules) where
     (f,CncFun _ _ (R lin) _) <- tree2list $ jments m,
     (Just prec, Just assoc) <- [(
        lookup "p" [(lab,p) | Ass (L (IC lab)) (EInt p) <- lin],
-       lookup "a" [(lab,a) | Ass (L (IC lab)) (Con (CIQ _ (IC a)) []) <- lin]
+       lookup "a" [(lab,a) | Ass (L (IC lab)) (Par (CIQ _ (IC a)) []) <- lin]
        )]
     ]
   precfuns = map fst precedences
-- 
cgit v1.2.3