msyds/gf-core
1
0
Fork 0
forked from GitHub/gf-core
Code Pull Requests Activity

GFCCtoJS in Devel

Browse Source
This commit is contained in:
aarne
2007-10-09 12:51:09 +00:00
parent 85ad81743e
commit 47ea75944f
5 changed files with 99 additions and 6 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
src/GF/GFCC/Macros.hs
View File

@@ -57,8 +57,11 @@ valCat :: Type -> CId
valCat ty = case ty of
DTyp _ val _ -> val
cid :: String -> CId
cid = CId
wildCId :: CId
wildCId = CId "_"
wildCId = cid "_"
exp0 :: Exp
exp0 = tree (AM 0) []