From 992a7ffb381190ffa67f59f33d0dfadf41f84e78 Mon Sep 17 00:00:00 2001
From: krasimir <krasimir@chalmers.se>
Date: Fri, 18 Jun 2010 12:55:58 +0000
Subject: Yay!! Direct generation of PMCFG from GF grammar

---
 src/compiler/GF/Grammar/Predef.hs | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

(limited to 'src/compiler/GF/Grammar/Predef.hs')

diff --git a/src/compiler/GF/Grammar/Predef.hs b/src/compiler/GF/Grammar/Predef.hs
index 370497cc7..f16765433 100644
--- a/src/compiler/GF/Grammar/Predef.hs
+++ b/src/compiler/GF/Grammar/Predef.hs
@@ -19,6 +19,7 @@ module GF.Grammar.Predef
           , cInt
           , cFloat
           , cString
+          , cVar
           , cInts
           , cPBool
           , cErrorType
@@ -73,6 +74,9 @@ cFloat = identC (BS.pack "Float")
 cString :: Ident
 cString = identC (BS.pack "String")
 
+cVar :: Ident
+cVar = identC (BS.pack "__gfVar")
+
 cInts :: Ident
 cInts = identC (BS.pack "Ints")
 
@@ -89,7 +93,7 @@ cUndefinedType :: Ident
 cUndefinedType = identC (BS.pack "UndefinedType")
 
 isLiteralCat :: Ident -> Bool
-isLiteralCat c = elem c [cInt,cString,cFloat]
+isLiteralCat c = elem c [cInt,cString,cFloat,cVar]
 
 cPTrue :: Ident
 cPTrue  = identC (BS.pack "PTrue")
-- 
cgit v1.2.3