diff options
| author | bjorn <bjorn@bringert.net> | 2008-06-03 19:33:13 +0000 |
|---|---|---|
| committer | bjorn <bjorn@bringert.net> | 2008-06-03 19:33:13 +0000 |
| commit | 8f6fc902283a4cb4d18c273e4c3b4858d13a8da4 (patch) | |
| tree | b46f933b9e593e1729e2e39d00ee3550d8739d78 /src-3.0 | |
| parent | 7237438a94ae81a29b45b91a9929133afeb95831 (diff) | |
Don't suffix start category name with _cat in SRGS XML printing.
Diffstat (limited to 'src-3.0')
| -rw-r--r-- | src-3.0/GF/Speech/SRGS.hs | 6 |
1 files changed, 1 insertions, 5 deletions
diff --git a/src-3.0/GF/Speech/SRGS.hs b/src-3.0/GF/Speech/SRGS.hs index cfbad42dc..3c36d2526 100644 --- a/src-3.0/GF/Speech/SRGS.hs +++ b/src-3.0/GF/Speech/SRGS.hs @@ -33,7 +33,7 @@ srgsXmlNonRecursivePrinter pgf cnc = prSrgsXml Nothing $ makeNonRecursiveSRG pgf prSrgsXml :: Maybe SISRFormat -> SRG -> String prSrgsXml sisr srg = showXMLDoc (optimizeSRGS xmlGr) where - xmlGr = grammar sisr (catFormId (srgStartCat srg)) (srgLanguage srg) $ + xmlGr = grammar sisr (srgStartCat srg) (srgLanguage srg) $ [meta "description" ("SRGS XML speech recognition grammar for " ++ srgName srg ++ "."), meta "generator" "Grammatical Framework"] @@ -73,10 +73,6 @@ tag (Just fmt) t = case t fmt of [] -> [] ts -> [Tag "tag" [] [Data (prSISR ts)]] -catFormId :: String -> String -catFormId = (++ "_cat") - - showToken :: Token -> String showToken t = t |