diff options
| author | bringert <bringert@cs.chalmers.se> | 2007-06-26 15:20:32 +0000 |
|---|---|---|
| committer | bringert <bringert@cs.chalmers.se> | 2007-06-26 15:20:32 +0000 |
| commit | 99ac3f8d731e6bacdf24564cc29887faf100f4ac (patch) | |
| tree | c1bdd7b8ccbf97f96e5dd4828f9aaeea27dd8a91 | |
| parent | 88653403fc5602f1c0ee8d3bef789ac98c9b67c7 (diff) | |
SRGS XML: the meta tag should use empty tag short-hand.
| -rw-r--r-- | src/GF/Speech/PrSRGS.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/GF/Speech/PrSRGS.hs b/src/GF/Speech/PrSRGS.hs index 3b88cad3a..d8ae07867 100644 --- 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 |