From 1cdf171251a56baf0867b65a95c9bd59801ff912 Mon Sep 17 00:00:00 2001
From: krasimir <krasimir@chalmers.se>
Date: Fri, 11 Sep 2009 13:45:34 +0000
Subject: polish the PGF API and make Expr and Type abstract types. Tree is a
 type synonym of Expr

---
 src/GFC.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'src/GFC.hs')

diff --git a/src/GFC.hs b/src/GFC.hs
index 713f8b7c9..778792878 100644
--- a/src/GFC.hs
+++ b/src/GFC.hs
@@ -74,7 +74,7 @@ writePGF opts pgf = do
   putPointE Normal opts ("Writing " ++ outfile ++ "...") $ ioeIO $ encodeFile outfile pgf
 
 grammarName :: Options -> PGF -> String
-grammarName opts pgf = fromMaybe (prCId (absname pgf)) (flag optName opts)
+grammarName opts pgf = fromMaybe (showCId (absname pgf)) (flag optName opts)
 
 writeOutput :: Options -> FilePath-> String -> IOE ()
 writeOutput opts file str =
-- 
cgit v1.2.3