diff options
Diffstat (limited to 'src/GF/API.hs')
| -rw-r--r-- | src/GF/API.hs | 9 |
1 files changed, 5 insertions, 4 deletions
diff --git a/src/GF/API.hs b/src/GF/API.hs index 15cccde51..49d7fd5a2 100644 --- a/src/GF/API.hs +++ b/src/GF/API.hs @@ -157,15 +157,16 @@ randomTreesIO opts gr n = do g = grammar gr mx = optIntOrN opts flagDepth 41 -generateTrees :: Options -> GFGrammar -> Int -> [Tree] -generateTrees opts gr n = +generateTrees :: Options -> GFGrammar -> [Tree] +generateTrees opts gr = optIntOrAll opts flagNumber - [tr | t <- Gen.generateTrees gr' cat n, Ok tr <- [mkTr t]] + [tr | t <- Gen.generateTrees gr' cat dpt mn, Ok tr <- [mkTr t]] where mkTr = annotate gr' . qualifTerm (absId gr) gr' = grammar gr cat = firstAbsCat opts gr - + dpt = maybe 3 id $ getOptInt opts flagDepth + mn = getOptInt opts flagAlts speechGenerate :: Options -> String -> IO () speechGenerate opts str = do |