Safe Haskell | None |
---|---|
Language | Haskell2010 |
Optics for xml-conduit and html-conduit
- data Document :: *
- xml :: AsXmlDocument t => Traversal' t Element
- html :: AsHtmlDocument t => Fold t Element
- root :: AsXmlDocument t => Traversal' t Element
- renderWith :: (Functor f, Contravariant f, AsXmlDocument t) => (RenderSettings -> RenderSettings) -> LensLike' f Element t
- render :: (Functor f, Contravariant f, AsXmlDocument t) => LensLike' f Element t
- data Prologue :: *
- prolog :: AsXmlDocument t => Traversal' t Prologue
- epilog :: AsXmlDocument t => Traversal' t [Miscellaneous]
- class AsXmlDocument t where
- data ParseSettings :: *
- data RenderSettings :: *
- _XmlDocument :: AsXmlDocument t => Prism' t Document
- class AsHtmlDocument t where
- data Doctype :: *
- doctype :: Lens' Prologue (Maybe Doctype)
- beforeDoctype :: Lens' Prologue [Miscellaneous]
- afterDoctype :: Lens' Prologue [Miscellaneous]
- data Element :: *
- ixOf :: Traversal' Node a -> Index Element -> Traversal' Element a
- node :: Name -> Traversal' Element Element
- named :: Fold Name a -> Traversal' Element Element
- attrs :: IndexedTraversal' Name Element Text
- attr :: Name -> Lens' Element (Maybe Text)
- attributed :: Fold (Map Name Text) a -> Traversal' Element Element
- text :: Traversal' Element Text
- texts :: Traversal' Element Text
- class HasComments t where
- class HasInstructions t where
- data Name :: *
- name :: HasName t => Lens' t Text
- namespace :: HasName t => Lens' t (Maybe Text)
- prefix :: HasName t => Lens' t (Maybe Text)
- class HasName t where
- data Instruction :: *
- target :: Traversal' Instruction Text
- data_ :: Traversal' Instruction Text
- data UnresolvedEntityException :: *
- data XMLException :: *
- _MissingRootElement :: AsInvalidEventStream t => Prism' t ()
- _ContentAfterRoot :: AsInvalidEventStream t => Prism' t EventPos
- _InvalidInlineDoctype :: AsInvalidEventStream t => Prism' t EventPos
- _MissingEndElement :: AsInvalidEventStream t => Prism' t (Name, Maybe EventPos)
- _UnterminatedInlineDoctype :: AsInvalidEventStream t => Prism' t ()
- class AsUnresolvedEntityException t where
- class AsXMLException t where
- class AsInvalidEventStream t where
- module Text.Xml.Lens.LowLevel
Document
xml :: AsXmlDocument t => Traversal' t Element Source #
A Traversal into XML document root node
>>>
("<foo/>" :: TL.Text) ^? xml.name
Just "foo"
>>>
("<foo><bar/><baz/></foo>" :: TL.Text) ^? xml.name
Just "foo"
>>>
("<foo/>" :: TL.Text) & xml.name .~ "boo"
"<?xml version=\"1.0\" encoding=\"UTF-8\"?><boo/>"
html :: AsHtmlDocument t => Fold t Element Source #
A Fold into HTML document root node
Not every parseable HTML document is a valid XML document:
>>>
let quasiXml = "<html><br><br></html>" :: BL.ByteString
>>>
quasiXml ^.. html...name
["br","br"]
>>>
quasiXml ^? xml...name
Nothing
root :: AsXmlDocument t => Traversal' t Element Source #
An alias for xml
renderWith :: (Functor f, Contravariant f, AsXmlDocument t) => (RenderSettings -> RenderSettings) -> LensLike' f Element t Source #
Fold Element
into the XML document
Convenience function mostly useful because xml-conduit
does not
provide handy method to convert Element
into text. Assumes empty XML prolog
See also render
>>>
:{
let bare l = (l, Data.Map.empty, []) tag l = _Element # bare l subtag l = _NodeElement._Element # bare l doc = tag "root" & elementNodes <>~ [subtag "child1", subtag "child2", subtag "child3"] & elementNodes %~ (subtag "child0" <|) :}
>>>
Data.Text.Lazy.IO.putStr $ doc ^. render
<?xml version="1.0" encoding="UTF-8"?><root><child0/><child1/><child2/><child3/></root>
>>>
Data.Text.Lazy.IO.putStr $ doc ^. renderWith (rsPretty .~ True)
<?xml version="1.0" encoding="UTF-8"?> <root> <child0/> <child1/> <child2/> <child3/> </root>
render :: (Functor f, Contravariant f, AsXmlDocument t) => LensLike' f Element t Source #
Fold Element
into the XML document with the default rendering settings
prolog :: AsXmlDocument t => Traversal' t Prologue Source #
A Traversal into XML prolog
epilog :: AsXmlDocument t => Traversal' t [Miscellaneous] Source #
A Traversal into XML epilog
>>>
let doc = "<root/><!--qux--><?foo bar?><!--quux-->" :: TL.Text
>>>
doc ^.. epilog.folded.comments
["qux","quux"]
>>>
doc ^.. epilog.folded.instructions.target
["foo"]
>>>
doc & epilog .~ []
"<?xml version=\"1.0\" encoding=\"UTF-8\"?><root/>"
class AsXmlDocument t where Source #
XML document parsing and rendering overloading
This is a general version; for parsing/rendering with the
default options see _XmlDocument
_XmlDocumentWith :: (ParseSettings -> ParseSettings) -> (RenderSettings -> RenderSettings) -> Prism' t Document Source #
data ParseSettings :: * #
data RenderSettings :: * #
_XmlDocument :: AsXmlDocument t => Prism' t Document Source #
XML document parsing and rendering with the default settings
class AsHtmlDocument t where Source #
HTML document parsing overloading
_HtmlDocument :: Fold t Document Source #
Doctype
Note: due to the incredible complexity of DTDs, this type only supports external subsets. I've tried adding internal subset types, but they quickly gain more code than the rest of this module put together.
It is possible that some future version of this library might support internal subsets, but I am no longer actively working on adding them.
doctype :: Lens' Prologue (Maybe Doctype) Source #
A Lens into XML DOCTYPE declaration
>>>
let doc = "<!DOCTYPE foo><root/>" :: TL.Text
>>>
doc ^? prolog.doctype.folded.doctypeName
Just "foo"
>>>
doc & prolog.doctype.traverse.doctypeName .~ "moo"
"<?xml version=\"1.0\" encoding=\"UTF-8\"?><!DOCTYPE moo><root/>"
Since doctype
's a Lens, it's possible to attach DOCTYPE declaration
to an XML document which didn't have it before:
>>>
("<root/>" :: TL.Text) & prolog.doctype ?~ XML.Doctype "moo" Nothing
"<?xml version=\"1.0\" encoding=\"UTF-8\"?><!DOCTYPE moo><root/>"
beforeDoctype :: Lens' Prologue [Miscellaneous] Source #
A Lens into nodes before XML DOCTYPE declaration
>>>
let doc = "<!--foo--><!DOCTYPE bar><!--baz--><root/>" :: TL.Text
>>>
doc ^? prolog.beforeDoctype.folded.comments
Just "foo"
>>>
doc & prolog.beforeDoctype.traverse.comments %~ Text.toUpper
"<?xml version=\"1.0\" encoding=\"UTF-8\"?><!--FOO--><!DOCTYPE bar><!--baz--><root/>"
afterDoctype :: Lens' Prologue [Miscellaneous] Source #
A Lens into nodes after XML DOCTYPE declaration
>>>
let doc = "<!--foo--><!DOCTYPE bar><!--baz--><root/>" :: TL.Text
>>>
doc ^? prolog.afterDoctype.folded.comments
Just "baz"
>>>
doc & prolog.afterDoctype.traverse.comments %~ Text.toUpper
"<?xml version=\"1.0\" encoding=\"UTF-8\"?><!--foo--><!DOCTYPE bar><!--BAZ--><root/>"
Element
Eq Element | |
Data Element | |
Ord Element | |
Show Element | |
ToMarkup Element | Note that the special element name
|
NFData Element | |
HasName Element Source # | |
HasInstructions Element Source # | |
HasComments Element Source # | |
type Index Element # | |
type IxValue Element # | |
ixOf :: Traversal' Node a -> Index Element -> Traversal' Element a Source #
node :: Name -> Traversal' Element Element Source #
Traverse immediate children with a specific name
>>>
let doc = "<root><foo>boo</foo><foo>hoo</foo><bar>moo</bar></root>" :: TL.Text
>>>
doc ^. xml.node "foo".text
"boohoo"
>>>
doc ^? xml.node "bar".text
Just "moo"
>>>
doc ^? xml.node "baz".text
Nothing
named :: Fold Name a -> Traversal' Element Element Source #
Select nodes by name
>>>
let doc = "<root><foo>4</foo><foo>7</foo><bar>11</bar><bar xmlns=\"zap\">28</bar></root>" :: TL.Text
>>>
doc ^.. xml...named (only "foo").name
["foo","foo"]
>>>
doc ^? xml...named (namespace.traverse.only "zap").text
Just "28"
>>>
doc ^? xml...named (only "baz").name
Nothing
attrs :: IndexedTraversal' Name Element Text Source #
Traverse node attributes
>>>
let doc = "<root><foo bar=\"baz\" qux=\"zap\"/><foo quux=\"xyzzy\"/></root>" :: TL.Text
>>>
doc ^.. xml...attrs.indices (has (name.unpacked.prefixed "qu"))
["zap","xyzzy"]
>>>
doc & xml...attrs %~ Text.toUpper
"<?xml version=\"1.0\" encoding=\"UTF-8\"?><root><foo bar=\"BAZ\" qux=\"ZAP\"/><foo quux=\"XYZZY\"/></root>"
attr :: Name -> Lens' Element (Maybe Text) Source #
Traverse node attributes with a specific name
>>>
let doc = "<root><foo bar=\"baz\" qux=\"quux\"/><foo qux=\"xyzzy\"/></root>" :: TL.Text
>>>
doc ^.. xml...attr "qux".traverse
["quux","xyzzy"]
>>>
doc ^.. xml...attr "bar"
[Just "baz",Nothing]
>>>
doc & xml...attr "qux".traverse %~ Text.reverse
"<?xml version=\"1.0\" encoding=\"UTF-8\"?><root><foo bar=\"baz\" qux=\"xuuq\"/><foo qux=\"yzzyx\"/></root>"
>>>
doc & xml.ix 1.attr "bar" ?~ "bazzy"
"<?xml version=\"1.0\" encoding=\"UTF-8\"?><root><foo bar=\"baz\" qux=\"quux\"/><foo bar=\"bazzy\" qux=\"xyzzy\"/></root>"
attributed :: Fold (Map Name Text) a -> Traversal' Element Element Source #
Select nodes by attributes' values
>>>
let doc = "<root><foo bar=\"baz\">4</foo><foo bar=\"quux\">7</foo><bar bar=\"baz\">11</bar></root>" :: TL.Text
>>>
doc ^.. xml...attributed (ix "bar".only "baz").text
["4","11"]
>>>
doc ^? xml...attributed (folded.to Text.length.only 4).text
Just "7"
text :: Traversal' Element Text Source #
Traverse node text contents
>>>
let doc = "<root>boo</root>" :: TL.Text
>>>
doc ^? xml.text
Just "boo"
>>>
doc & xml.text <>~ "hoo"
"<?xml version=\"1.0\" encoding=\"UTF-8\"?><root>boohoo</root>"
texts :: Traversal' Element Text Source #
Traverse node text contents recursively
>>>
let doc = "<root>qux<foo>boo</foo><bar><baz>hoo</baz>quux</bar></root>" :: TL.Text
>>>
doc ^.. xml.texts
["qux","boo","hoo","quux"]
>>>
doc & xml.texts %~ Text.toUpper
"<?xml version=\"1.0\" encoding=\"UTF-8\"?><root>QUX<foo>BOO</foo><bar><baz>HOO</baz>QUUX</bar></root>"
class HasInstructions t where Source #
Anything that has processing instructions
Name
A fully qualified name.
Prefixes are not semantically important; they are included only to
simplify pass-through parsing. When comparing names with Eq
or Ord
methods, prefixes are ignored.
The IsString
instance supports Clark notation; see
http://www.jclark.com/xml/xmlns.htm and
http://infohost.nmt.edu/tcc/help/pubs/pylxml/etree-QName.html. Use
the OverloadedStrings
language extension for very simple Name
construction:
myname :: Name myname = "{http://example.com/ns/my-namespace}my-name"
name :: HasName t => Lens' t Text Source #
A Lens into node name
>>>
("<root/>" :: TL.Text) ^. xml.name
"root"
>>>
("<root><foo/><bar/><baz/></root>" :: TL.Text) ^.. xml...name
["foo","bar","baz"]
>>>
("<root><foo/><bar/><baz></root>" :: TL.Text) & xml.partsOf (plate.name) .~ ["boo", "hoo", "moo"]
"<root><foo/><bar/><baz></root>"
namespace :: HasName t => Lens' t (Maybe Text) Source #
A Lens into node namespace
>>>
("<root/>" :: TL.Text) ^. xml.namespace
Nothing
>>>
("<root/>" :: TL.Text) & xml.namespace ?~ "foo"
"<?xml version=\"1.0\" encoding=\"UTF-8\"?><root xmlns=\"foo\"/>"
>>>
("<root xmlns=\"foo\"/>" :: TL.Text) & xml.namespace .~ Nothing
"<?xml version=\"1.0\" encoding=\"UTF-8\"?><root/>"
prefix :: HasName t => Lens' t (Maybe Text) Source #
A Lens into node namespace
>>>
("<root/>" :: TL.Text) ^. xml.prefix
Nothing
>>>
("<root/>" :: TL.Text) & xml.prefix ?~ "foo"
"<?xml version=\"1.0\" encoding=\"UTF-8\"?><root/>"
>>>
("<root xmlns=\"foo\"/>" :: TL.Text) & xml.prefix ?~ "foo"
"<?xml version=\"1.0\" encoding=\"UTF-8\"?><foo:root xmlns:foo=\"foo\"/>"
>>>
("<?xml version=\"1.0\" encoding=\"UTF-8\"?><foo:root xmlns:foo=\"foo\"/>" :: TL.Text) & xml.prefix .~ Nothing
"<?xml version=\"1.0\" encoding=\"UTF-8\"?><root xmlns=\"foo\"/>"
Instruction
data Instruction :: * #
target :: Traversal' Instruction Text Source #
Processing instruction target
>>>
let doc = "<root><?foo bar?></root>" :: TL.Text
>>>
doc ^? xml.instructions.target
Just "foo"
>>>
doc & xml.instructions.target .~ "boo"
"<?xml version=\"1.0\" encoding=\"UTF-8\"?><root><?boo bar?></root>"
data_ :: Traversal' Instruction Text Source #
Processing instruction data
>>>
let doc = "<root><?foo bar?></root>" :: TL.Text
>>>
doc ^? xml.instructions.data_
Just "bar"
>>>
doc & xml.instructions.data_ .~ "hoo"
"<?xml version=\"1.0\" encoding=\"UTF-8\"?><root><?foo hoo?></root>"
exceptions
data UnresolvedEntityException :: * #
data XMLException :: * #
_MissingRootElement :: AsInvalidEventStream t => Prism' t () Source #
A Prism into MissingRootElement
_ContentAfterRoot :: AsInvalidEventStream t => Prism' t EventPos Source #
A Prism into ContentAfterRoot
_InvalidInlineDoctype :: AsInvalidEventStream t => Prism' t EventPos Source #
A Prism into InvalidInlineDoctype
_MissingEndElement :: AsInvalidEventStream t => Prism' t (Name, Maybe EventPos) Source #
A Prism into MissingEndElement
_UnterminatedInlineDoctype :: AsInvalidEventStream t => Prism' t () Source #
A Prism into UnterminatedInlineDoctype
class AsUnresolvedEntityException t where Source #
xml-conduit
entity resolving exceptions overloading
class AsXMLException t where Source #
xml-conduit
general XML exception overloading
class AsInvalidEventStream t where Source #
xml-conduit
XML parsing exceptions overloading
module Text.Xml.Lens.LowLevel
Orphan instances
Ixed Element Source # | Index child
To index subnodes indexed by a Traversal', use |
Plated Element Source # | Traverse immediate children
|