Data.XML must escape the data as well

2024-05-17 11:46:37 +02:00
parent 6d7071fe9c
commit d515cfd89d
2 changed files with 2 additions and 10 deletions
--- a/src/compiler/api/GF/Speech/VoiceXML.hs
+++ b/src/compiler/api/GF/Speech/VoiceXML.hs
@@ -178,13 +178,6 @@ param name expr = ETag "param" [("name",name),("expr",expr)]
 var :: String -> Maybe String -> XML
 var name expr = ETag "var" ([("name",name)]++e)
  where e = maybe [] ((:[]) . (,) "expr") expr
-{-
-script :: String -> XML
-script s = Tag "script" [] [CData s]
-
-scriptURI :: String -> XML
-scriptURI uri = Tag "script" [("uri", uri)] []
-}
 --
 -- * ECMAScript stuff
 --