diff options
Diffstat (limited to 'src/GF/Speech/PrSRGS.hs')
| -rw-r--r-- | src/GF/Speech/PrSRGS.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/GF/Speech/PrSRGS.hs b/src/GF/Speech/PrSRGS.hs index f3e08fc22..1e188f17e 100644 --- a/src/GF/Speech/PrSRGS.hs +++ b/src/GF/Speech/PrSRGS.hs @@ -61,7 +61,7 @@ prSrgsXml sisr probs srg@(SRG{grammarName=name,startCat=start, prRhs rhss = [oneOf (map (mkProd sisr probs) rhss)] -- externally visible rules for each of the GF categories topCatRules = [topRule tc [oneOf (map (it tc) cs)] | (tc,cs) <- srgTopCats srg] - where it i c = Tag "item" [] [Tag "ruleref" [("uri","#" ++ c)] [], + where it i c = Tag "item" [] [ETag "ruleref" [("uri","#" ++ c)], tag sisr (topCatSISR c)] topRule i is = Tag "rule" [("id",catFormId i),("scope","public")] is @@ -98,7 +98,7 @@ mkItem sisr cn ss = map (symItem sisr cn) ss symItem :: Maybe SISRFormat -> CFTerm -> Symbol SRGNT Token -> XML symItem sisr cn (Cat n@(c,_)) = - Tag "item" [] $ [Tag "ruleref" [("uri","#" ++ c)] [], tag sisr (catSISR cn n)] + Tag "item" [] $ [ETag "ruleref" [("uri","#" ++ c)], tag sisr (catSISR cn n)] symItem _ _ (Tok t) = Tag "item" [] [Data (showToken t)] tag :: Maybe SISRFormat -> (SISRFormat -> SISRTag) -> XML |