From ea80441b080b7a52d4c98bfa722640a2fabbb496 Mon Sep 17 00:00:00 2001
From: bjorn <bjorn@bringert.net>
Date: Tue, 3 Jun 2008 19:33:13 +0000
Subject: [PATCH] Don't suffix start category name with _cat in SRGS XML
 printing.

---
 src-3.0/GF/Speech/SRGS.hs | 6 +-----
 1 file changed, 1 insertion(+), 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