From e394d725a49d579459006ab70e1007f1170ca2b0 Mon Sep 17 00:00:00 2001 From: aarne Date: Fri, 9 Nov 2007 15:51:12 +0000 Subject: [PATCH] ResFin workaround; type annot for ghc 6.8.1 --- src/GF/GFCC/Generate.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) 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