在Haskell中,如何从XML文档中提取字符串？

cabal install hxt

import Text.XML.HXT.Core

-- 示例XML文档
xmlString :: String
xmlString = "<root><name>John Doe</name><age>30</age></root>"

-- 提取字符串的函数
extractString :: IOStateArrow s XmlTree String
extractString = getText <<< deep (hasName "name")

main :: IO ()
main = do
  -- 解析XML文档
  doc <- runX $ readString [withValidate no] xmlString

  -- 提取字符串
  result <- runX $ doc >>> extractString

  -- 输出结果
  putStrLn result