diff options
| author | kr.angelov <kr.angelov@gmail.com> | 2013-08-23 13:17:45 +0000 |
|---|---|---|
| committer | kr.angelov <kr.angelov@gmail.com> | 2013-08-23 13:17:45 +0000 |
| commit | a20cd77d251192b8912587de17ebb87fa3cfb053 (patch) | |
| tree | 24cba6146320eeff2e0eda2ee731546c247c577b /src/compiler/GF/Grammar/Predef.hs | |
| parent | 7c98267193726f4031c4551cf8a24c34c75fef94 (diff) | |
nonExist now does the expected thing
Diffstat (limited to 'src/compiler/GF/Grammar/Predef.hs')
| -rw-r--r-- | src/compiler/GF/Grammar/Predef.hs | 4 |
1 files changed, 4 insertions, 0 deletions
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] |