haskell - 如何从 HTML 标记中提取内部文本？

Question

我有以下代码:

import Text.HTML.TagSoup

parseTags "<hello>my&amp;</world>" 

给我的输出如下:[TagOpen "hello"[],TagText "my&",TagClose "world"]。但我只想获取 [TagText "my&"]。我可以这样做:

filter (~== "my&")$ parseTags "<hello>my&amp;</world>"

这会给我这样的输出:[TagText "my&"]。但我不知道 TagText 里面是什么，即 "my&"。我的最终目标是得到 "my&" 我能得到的

map(fromTagText) $ filter (~== "my&")$ parseTags "<hello>my&amp;</world>"

我尝试使用 TagText，但无法正确使用。

Answer 1

> filter isTagText (parseTags "<hello>my&amp;</world>")
[TagText "my&"]