conduit xml lenses

xml-lenses.hs

{-# LANGUAGE OverloadedStrings #-}

module Main where

import Control.Applicative
import Control.Lens
import Data.Text (Text)
import Text.Xml.Lens
import Text.XML
import qualified Data.Text.Lazy.IO as T
import Data.Default (def)

names :: AsXmlDocument t => Traversal' t Text
names = xml...node "Tag"
             .attributed (ix "name".only "CardName")
             .node "enUS"
             .text

main = do
  cards <- T.readFile "/home/jb55/cards.xml"
  let parsed = parseText def cards
  mapM_ print $ parsed ^.. _Right . names