haskell - HXT 获取第一个元素 : refactor weird arrow

Question

我需要获取第一个<p>的文本内容这是<div class="about">的 child ，编写了以下代码:

tagTextS :: IOSArrow XmlTree String
tagTextS = getChildren >>> getText >>> arr stripString

parseDescription :: IOSArrow XmlTree String
parseDescription =
  (
   deep (isElem >>> hasName "div" >>> hasAttrValue "id" (== "company_about_full_description"))
   >>> (arr (\x -> x) /> isElem  >>> hasName "p") >. (!! 0) >>> tagTextS
  ) `orElse` (constA "")

看看这个arr (\x -> x) – 没有它我就无法达到结果。

• 有没有更好的写法 parseDescription ？
• 另一个问题这就是为什么我需要在 arr 之前加上括号及之后hasName "p" ？ (我实际上找到了这个解决方案here )

Answer 1

可能是这样的 XPath

import "hxt-xpath" Text.XML.HXT.XPath.Arrows (getXPathTrees)

...

xp = "//div[@class='about']/p[1]"

parseDescription = getXPathTrees xp >>> getChildren >>> getText