lens-xml-0.1.0.0: test/Spec.hs

import Text.XML.Light
import Text.XML.Light.Lens
import Control.Lens

main :: IO ()
main =
  let v = parseXML sample
   in print $ v ^.. traverse . _Elem . elNameL . qNameL

sample =
  "<a>5</a>"