1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
|
module Text.RSS.Utils where
import Prelude.Compat
import Data.Text
import Data.XML.Types as XML
import Text.XML as C
createContent :: Text -> XML.Node
createContent = XML.NodeContent . ContentText
createQName :: Text -> Name
createQName txt = XML.Name {nameLocalName = txt, nameNamespace = Nothing, namePrefix = Nothing}
type Attr = (Name, [Content])
mkNAttr :: Name -> Text -> Attr
mkNAttr k v = (k, [ContentText v])
elementToDoc :: XML.Element -> Maybe C.Document
elementToDoc el =
either (const Nothing) Just $ fromXMLDocument $ XML.Document (Prologue [] Nothing []) el []
|
