Eliminate more redundant item tags in SRGS XML.

2007-06-26 12:27:46 +00:00
parent 7eaa2af27c
commit 3371605af0
1 changed files with 3 additions and 0 deletions
--- a/src/GF/Speech/PrSRGS.hs
+++ b/src/GF/Speech/PrSRGS.hs
@@ -146,5 +146,8 @@ optimizeSRGS = bottomUpXML f
  where f (Tag "item" [] [x@(Tag "item" _ _)]) = x
        f (Tag "item" [] [x@(Tag "one-of" _ _)]) = x
        f (Tag "item" as [Tag "item" [] xs]) = Tag "item" as xs
+        f (Tag "item" as xs) = Tag "item" as (map g xs)
+           where g (Tag "item" [] [x@(ETag "ruleref" _)]) = x
+                 g x = x
        f (Tag "one-of" [] [x]) = x
        f x = x