GitHub/gf-core
1
0
Fork 1
mirror of https://github.com/GrammaticalFramework/gf-core.git synced 2026-04-23 03:32:51 -06:00
Code Issues Packages Projects Releases Wiki Activity

extended cf syntax; Det experiment

Browse Source
This commit is contained in:
aarne
2005-11-15 10:43:32 +00:00
parent fdc6eaa6ee
commit 50044f7686
7 changed files with 616 additions and 17 deletions
Download Patch File Download Diff File Expand all files Collapse all files

11
src/GF/Infra/Ident.hs
View File

@@ -5,9 +5,9 @@
-- Stability : (stable)
-- Portability : (portable)
--
-- > CVS $Date: 2005/04/21 16:22:35 $
-- > CVS $Author: bringert $
-- > CVS $Revision: 1.7 $
-- > CVS $Date: 2005/11/15 11:43:33 $
-- > CVS $Author: aarne $
-- > CVS $Revision: 1.8 $
--
-- (Description of the module)
-----------------------------------------------------------------------------
@@ -73,7 +73,10 @@ wildIdent :: Ident
wildIdent = identW
isWildIdent :: Ident -> Bool
isWildIdent = (== wildIdent)
isWildIdent x = case x of
IW -> True
IC "_" -> True
_ -> False
newIdent :: Ident
newIdent = identC "#h"