From a20cd77d251192b8912587de17ebb87fa3cfb053 Mon Sep 17 00:00:00 2001 From: "kr.angelov" Date: Fri, 23 Aug 2013 13:17:45 +0000 Subject: nonExist now does the expected thing --- src/compiler/GF/Grammar/Predef.hs | 4 ++++ 1 file changed, 4 insertions(+) (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 44cc060ec..71b0cef3d 100644 --- a/src/compiler/GF/Grammar/Predef.hs +++ b/src/compiler/GF/Grammar/Predef.hs @@ -21,6 +21,7 @@ module GF.Grammar.Predef , cString , cVar , cInts + , cNonExist , cPBool , cErrorType , cOverload @@ -94,6 +95,9 @@ cOverload = identC (BS.pack "overload") cUndefinedType :: Ident cUndefinedType = identC (BS.pack "UndefinedType") +cNonExist :: Ident +cNonExist = identC (BS.pack "nonExist") + isPredefCat :: Ident -> Bool isPredefCat c = elem c [cInt,cString,cFloat] -- cgit v1.2.3