SRGS XML: the meta tag should use empty tag short-hand.

2007-06-26 15:20:32 +00:00
parent 84e030d128
commit ee39e2c742
1 changed files with 1 additions and 1 deletions
--- a/src/GF/Speech/PrSRGS.hs
+++ b/src/GF/Speech/PrSRGS.hs
@@ -139,7 +139,7 @@ grammar sisr root ml =
                 ++ maybe [] (\l -> [("xml:lang", l)]) ml

 meta :: String -> String -> XML
-meta n c = Tag "meta" [("name",n),("content",c)] []
+meta n c = ETag "meta" [("name",n),("content",c)]

 optimizeSRGS :: XML -> XML
 optimizeSRGS = bottomUpXML f