From b664973cae257cf7bd150de5e01c5ab1e67a79e8 Mon Sep 17 00:00:00 2001
From: bringert <bringert@cs.chalmers.se>
Date: Sun, 10 Dec 2006 23:31:43 +0000
Subject: [PATCH] Reinstate SISR field name for top-level categories. The
 VoiceXML generation relies on it.

---
 src/GF/Speech/PrSRGS.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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