diff options
| author | aarne <aarne@cs.chalmers.se> | 2007-11-09 15:51:12 +0000 |
|---|---|---|
| committer | aarne <aarne@cs.chalmers.se> | 2007-11-09 15:51:12 +0000 |
| commit | e394d725a49d579459006ab70e1007f1170ca2b0 (patch) | |
| tree | cc0d1580e742551f6bdaaaf9d33f059b323e9af9 /src/GF | |
| parent | 6568ac4aea0407ede5ed7002d464a119bd5dd5cc (diff) | |
ResFin workaround; type annot for ghc 6.8.1
Diffstat (limited to 'src/GF')
| -rw-r--r-- | src/GF/GFCC/Generate.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/GF/GFCC/Generate.hs b/src/GF/GFCC/Generate.hs index 8baaf12d7..64ef5d5cf 100644 --- a/src/GF/GFCC/Generate.hs +++ b/src/GF/GFCC/Generate.hs @@ -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 |