Include GF version and compile date in SRGS meta creator tag.

1 files changed, 3 insertions, 1 deletions

diff --git a/src/GF/Speech/PrSRGS.hs b/src/GF/Speech/PrSRGS.hs
index 89db71d1a..6e445d41a 100644
--- a/src/GF/Speech/PrSRGS.hs
+++ b/src/GF/Speech/PrSRGS.hs
@@ -20,6 +20,7 @@ module GF.Speech.PrSRGS (srgsXmlPrinter) where
 import GF.Data.Utilities
 import GF.Speech.SRG
 import GF.Infra.Ident
+import GF.Today
 
 import GF.Formalism.CFG
 import GF.Formalism.Utilities (Symbol(..), NameProfile(..), Profile(..), forestName)
@@ -54,7 +55,8 @@ prSrgsXml sisr (SRG{grammarName=name,startCat=start,
     xmlGr = grammar root l ([meta "description" 
                              ("SRGS XML speech recognition grammar for " ++ name
                               ++ ". " ++ "Original start category: " ++ origStart),
-                             meta "generator" "GF"]
+                             meta "generator" ("Grammatical Framework " ++ version 
+                                               ++ " (compiled " ++ today ++ ")")]
 			  ++ map ruleToXML rs)
     ruleToXML (SRGRule cat origCat alts) = 
 	rule (prCat cat) (comments ["Category " ++ origCat] ++ prRhs isList alts)