diff options
| author | bringert <bringert@cs.chalmers.se> | 2006-12-10 23:31:43 +0000 |
|---|---|---|
| committer | bringert <bringert@cs.chalmers.se> | 2006-12-10 23:31:43 +0000 |
| commit | c0db56422bd07385061bdc915abb80e63799994f (patch) | |
| tree | 79ff77dd132ab3b374a7ee4339afe6d733f44882 /src/GF | |
| parent | 7475c2544f72f121f9dc380b9ce4e991e951ab1d (diff) | |
Reinstate SISR field name for top-level categories. The VoiceXML generation relies on it.
Diffstat (limited to 'src/GF')
| -rw-r--r-- | src/GF/Speech/PrSRGS.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/GF/Speech/PrSRGS.hs b/src/GF/Speech/PrSRGS.hs index 09957997c..4a88b6cdc 100644 --- a/src/GF/Speech/PrSRGS.hs +++ b/src/GF/Speech/PrSRGS.hs @@ -69,7 +69,7 @@ prSrgsXml sisr (SRG{grammarName=name,startCat=start, topCatRules = [topRule tc [oneOf (map (it tc) cs)] | (tc,cs) <- topCats] where topCats = buildMultiMap [(cfgCatToGFCat origCat, cat) | SRGRule cat origCat _ <- rs] it i c = Tag "item" [] [Tag "ruleref" [("uri","#" ++ prCat c)] [], - tag sisr [EThis := (ERef c)]] + tag sisr [(EThis :. i) := (ERef c)]] topRule i is = Tag "rule" [("id",i),("scope","public")] is rule :: String -> [XML] -> XML |