14 lines
262 B
Haskell
14 lines
262 B
Haskell
import Data.List
|
|
import Text.XML.Light
|
|
|
|
xmlDOM :: String -> String
|
|
xmlDOM txt = showTopElement $ Element
|
|
(unqual "root")
|
|
[]
|
|
[ Elem $ Element
|
|
(unqual "element")
|
|
[]
|
|
[Text $ CData CDataText txt Nothing]
|
|
Nothing
|
|
]
|
|
Nothing
|