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/Infra/Print.hs | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

(limited to 'src/GF/Infra')

diff --git a/src/GF/Infra/Print.hs b/src/GF/Infra/Print.hs
index cf5953030..fe3ffa207 100644
--- a/src/GF/Infra/Print.hs
+++ b/src/GF/Infra/Print.hs
@@ -4,9 +4,9 @@
 -- Stability   : (stable)
 -- Portability : (portable)
 --
--- > CVS $Date: 2005/04/21 16:22:38 $ 
+-- > CVS $Date: 2005/06/17 14:15:18 $ 
 -- > CVS $Author: bringert $
--- > CVS $Revision: 1.3 $
+-- > CVS $Revision: 1.4 $
 --
 -- Pretty-printing
 -----------------------------------------------------------------------------
@@ -91,8 +91,8 @@ instance Print Ident where
 
 instance Print Term where
     prt (Arg arg)         = prt arg
-    prt (con `Con` [])    = prt con
-    prt (con `Con` terms) = prt con ++ "(" ++ prtSep ", " terms ++ ")"
+    prt (con `Par` [])    = prt con
+    prt (con `Par` terms) = prt con ++ "(" ++ prtSep ", " terms ++ ")"
     prt (LI ident)        = "$" ++ prt ident
     prt (R record)        = "{" ++ prtSep "; " record ++ "}"
     prt (term `P` lbl)    = prt term ++ "." ++ prt lbl
-- 
cgit v1.2.3