diff options
| -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 |