msyds/gf-core
1
0
Fork 0
forked from GitHub/gf-core
Code Pull Requests 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 6568ac4aea
commit e394d725a4
1 changed files with 1 additions and 1 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