diff options
| author | bringert <bringert@cs.chalmers.se> | 2006-04-18 12:42:20 +0000 |
|---|---|---|
| committer | bringert <bringert@cs.chalmers.se> | 2006-04-18 12:42:20 +0000 |
| commit | a663a046edf310247cf1e82761c79397d9bd42ad (patch) | |
| tree | 16eca208e65faad7dc34db9fc35e9b2734721fa1 /src/GF/Speech/PrSRGS.hs | |
| parent | 5ccf994499a215480bebecc31411db0217debb93 (diff) | |
Look at both command-line and grammar startcat falgs in pg commands.
Diffstat (limited to 'src/GF/Speech/PrSRGS.hs')
| -rw-r--r-- | src/GF/Speech/PrSRGS.hs | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/src/GF/Speech/PrSRGS.hs b/src/GF/Speech/PrSRGS.hs index 8e358e51f..dae6f35f6 100644 --- a/src/GF/Speech/PrSRGS.hs +++ b/src/GF/Speech/PrSRGS.hs @@ -36,12 +36,13 @@ import qualified Data.Map as Map import qualified Data.Set as Set srgsXmlPrinter :: Ident -- ^ Grammar name + -> String -- ^ Start category -> Options -> Bool -- ^ Whether to include semantic interpretation -> Maybe Probs -> CGrammar -> String -srgsXmlPrinter name opts sisr probs cfg = prSrgsXml sisr srg "" - where srg = makeSRG name opts probs cfg +srgsXmlPrinter name start opts sisr probs cfg = prSrgsXml sisr srg "" + where srg = makeSRG name start opts probs cfg prSrgsXml :: Bool -> SRG -> ShowS prSrgsXml sisr (SRG{grammarName=name,startCat=start, |