From a663a046edf310247cf1e82761c79397d9bd42ad Mon Sep 17 00:00:00 2001 From: bringert Date: Tue, 18 Apr 2006 12:42:20 +0000 Subject: Look at both command-line and grammar startcat falgs in pg commands. --- src/GF/Speech/PrJSGF.hs | 7 ++++--- 1 file changed, 4 insertions(+), 3 deletions(-) (limited to 'src/GF/Speech/PrJSGF.hs') diff --git a/src/GF/Speech/PrJSGF.hs b/src/GF/Speech/PrJSGF.hs index 56f5eda1b..2a4c4fd51 100644 --- a/src/GF/Speech/PrJSGF.hs +++ b/src/GF/Speech/PrJSGF.hs @@ -30,9 +30,10 @@ import GF.Probabilistic.Probabilistic (Probs) import GF.Speech.SRG jsgfPrinter :: Ident -- ^ Grammar name - -> Options -> Maybe Probs -> CGrammar -> String -jsgfPrinter name opts probs cfg = prJSGF srg "" - where srg = makeSimpleSRG name opts probs cfg + -> String -- ^ Start category + -> Options -> Maybe Probs -> CGrammar -> String +jsgfPrinter name start opts probs cfg = prJSGF srg "" + where srg = makeSimpleSRG name start opts probs cfg prJSGF :: SRG -> ShowS prJSGF (SRG{grammarName=name,startCat=start,origStartCat=origStart,rules=rs}) -- cgit v1.2.3