diff options
| author | aarne <aarne@cs.chalmers.se> | 2006-08-15 20:28:37 +0000 |
|---|---|---|
| committer | aarne <aarne@cs.chalmers.se> | 2006-08-15 20:28:37 +0000 |
| commit | 6bf419c50c719ac1b2d2808c84760eb0d1258d1d (patch) | |
| tree | a92b346d15ccf5d7d6faf63bf0cb5a9a37c9ebea /src/GF/UseGrammar/Generate.hs | |
| parent | 28245481a73246ff9fa4e1bcf719019c2a00b6d3 (diff) | |
help for gt
Diffstat (limited to 'src/GF/UseGrammar/Generate.hs')
| -rw-r--r-- | src/GF/UseGrammar/Generate.hs | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/src/GF/UseGrammar/Generate.hs b/src/GF/UseGrammar/Generate.hs index d0697b8dd..25e27df1c 100644 --- a/src/GF/UseGrammar/Generate.hs +++ b/src/GF/UseGrammar/Generate.hs @@ -50,8 +50,9 @@ generateTrees opts gr cat n mn mt = map str2tr $ generate gr' ifm cat' n mn mt' ifm = oElem showOld opts generateAll :: Options -> (Exp -> IO ()) -> GFCGrammar -> Cat -> IO () -generateAll opts io gr cat = mapM_ (io . str2tr) $ gen cat' +generateAll opts io gr cat = mapM_ (io . str2tr) $ num $ gen cat' where + num = optIntOrAll opts flagNumber gr' = gr2sgr opts emptyProbs gr cat' = prt $ snd cat gen c = generate gr' False c 10 Nothing Nothing |