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 committed 2007-11-09 15:51:12 +00:00
1 parent 6568ac4aea
commit e394d725a4
1 file changed
+1 -1
Download Patch File Download Diff File Expand all files Collapse all files
src/GF/GFCC/Generate.hs
+1 -1
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