@@ -6,15 +6,19 @@ Lenses and traversals for [xml-conduit](http://hackage.haskell.org/package/xml-c
66Example
77========
88
9−> doc <- Text.XML.readFile def "examples\\books.xml"
9+ > doc <- Text.XML.readFile def "examples\\books.xml"
1010
11−> lengthOf ?? doc $ root . el "books" ./ el "book"
12−7
11+ > doc ^.. root . el "books" ./ el "book" . attributeIs "category" "Textbooks" ./ el "title" . text
12+ ["Learn You a Haskell for Great Good!","Programming in Haskell","Real World Haskell"]
1313
14−> doc ^? root . el "books" ./ attributeIs "category" "Joke" ./ el "title" . text
15−Just "Functional Ikamusume"
14+ > lengthOf ?? doc $ root . el "books" ./ el "book"
15+ 7
16+
17+ > doc ^? root . el "books" ./ attributeIs "category" "Joke" ./ el "title" . text
18+ Just "Functional Ikamusume"
19+
20+ > doc & root . el "books" ./ el "book" ./ el "pages" . text <>~ " pages" & renderLBS def & BL.putStrLn
1621
17−> doc & root . el "books" ./ el "book" ./ el "pages" . text <>~ " pages" & renderLBS def & BL.putStrLn
1822```xml
1923<?xml version="1.0" encoding="ISO-8859-1"?>
2024<books>
@@ -35,4 +39,6 @@ Just "Functional Ikamusume"
3539 <pages>200 pages</pages>
3640</book>
3741…
38−```
42+```
43+
44+