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

ResFin workaround; type annot for ghc 6.8.1

Browse Source
This commit is contained in:
aarne
2007-11-09 15:51:12 +00:00
parent bfb04e5eb0
commit 70bb329c8e
3 changed files with 10 additions and 7 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
src/GF/GFCC/Generate.hs
View File

@@ -25,7 +25,7 @@ generate gfcc cat = concatMap (\i -> gener i cat) [0..]
-- generate an infinite list of trees randomly
genRandom :: StdGen -> GFCC -> CId -> [Exp]
genRandom gen gfcc cat = genTrees (randomRs (0.0, 1.0) gen) cat where
genRandom gen gfcc cat = genTrees (randomRs (0.0, 1.0 :: Double) gen) cat where
timeout = 47 -- give up