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

monitor timeout in gfcc generation

Browse Source
This commit is contained in:
aarne
2006-09-19 15:45:47 +00:00
parent 7ea135378f
commit 8a9f2df33d
1 changed files with 1 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

1
src/GF/Canon/GFCC/GenGFCC.hs
View File

@@ -41,6 +41,7 @@ generateRandom gen gfcc cat = genTrees (randomRs (0.0, 1.0) gen) cat where
genTree rs = gett rs where genTree rs = gett rs where
gett ds (CId "String") = (Tr (AS "foo") [], 1) gett ds (CId "String") = (Tr (AS "foo") [], 1)
gett ds (CId "Int") = (Tr (AI 12345) [], 1) gett ds (CId "Int") = (Tr (AI 12345) [], 1)
gett [] _ = (Tr (AS "TIMEOUT") [], 1) ----
gett ds cat = case fns cat of gett ds cat = case fns cat of
fs -> let fs -> let
d:ds2 = ds d:ds2 = ds