From 6bf419c50c719ac1b2d2808c84760eb0d1258d1d Mon Sep 17 00:00:00 2001
From: aarne <aarne@cs.chalmers.se>
Date: Tue, 15 Aug 2006 20:28:37 +0000
Subject: help for gt

---
 src/GF/UseGrammar/Generate.hs | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

(limited to 'src/GF/UseGrammar')

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
-- 
cgit v1.2.3