diff options
| author | aarne <aarne@cs.chalmers.se> | 2006-09-19 15:45:47 +0000 |
|---|---|---|
| committer | aarne <aarne@cs.chalmers.se> | 2006-09-19 15:45:47 +0000 |
| commit | 8a9f2df33ddcb8ae3932fc2d1ec593b20465e8c7 (patch) | |
| tree | 55e9877c4337720ad154b891a728ac0ffb0bc6df /src/GF | |
| parent | 7ea135378f9b6b70288ac174e2f165f469efcf58 (diff) | |
monitor timeout in gfcc generation
Diffstat (limited to 'src/GF')
| -rw-r--r-- | src/GF/Canon/GFCC/GenGFCC.hs | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/src/GF/Canon/GFCC/GenGFCC.hs b/src/GF/Canon/GFCC/GenGFCC.hs index 15c5e71d7..61365688f 100644 --- a/src/GF/Canon/GFCC/GenGFCC.hs +++ b/src/GF/Canon/GFCC/GenGFCC.hs @@ -41,6 +41,7 @@ generateRandom gen gfcc cat = genTrees (randomRs (0.0, 1.0) gen) cat where genTree rs = gett rs where gett ds (CId "String") = (Tr (AS "foo") [], 1) gett ds (CId "Int") = (Tr (AI 12345) [], 1) + gett [] _ = (Tr (AS "TIMEOUT") [], 1) ---- gett ds cat = case fns cat of fs -> let d:ds2 = ds |