I have this XPath works with xmllint
//td[text() = 'USD']/../td[6]/text()
Now I want it to be done in Haskell. But following (not complete of the original XPath) does not work at all. I got empty list error on head.
cur $// element "td" &// check (\c → "USD" ≡ head (c $// content))