Haskell HaXml Sample of Lazily Reading XML file (in this case badges file from stackoverflow data dump)

LazyBadges.hs

import Text.XML.HaXml.ParseLazy as PL
import Text.XML.HaXml
import Text.XML.HaXml.Posn
import System.IO

main = do
  inh <- openFile "badges.xml" ReadMode
  hSetEncoding inh utf8_bom
  inpStr <- hGetContents inh
  let (Document _ _ root _) = PL.xmlParse "badges.xml" inpStr
  let rootElem = CElem root noPos
  print $ length $ tag "badges" rootElem
  let rows = tag "badges" /> tag "row" $ rootElem
  let first = head rows
  let (CElem (Elem name attributes _)_) = first
  print name
  print attributes
  hClose inh