xml - 使用HXT在Haskell中解析多个子节点

我需要解析haskell中的xml文件，所以选择了hxt。到目前为止我很喜欢，但我不知道怎么做一件事。
我正在分析的文件包含作为配置文件的信息。它的结构类似于

<clients>
    <client>
        <name>SomeName</name>
        <info>MoreInfo</info>
        <table>
            <row>
                <name>rowname1</name>
                <value>rowvalue1</value>
            </row>
            <row>
                <name>rowname2</name>
                <value>rowvalue2</value>
            </row>
        </table>
    </client>
    ...
</clients>

这种标记格式使我畏缩不前，但这是我必须处理的。
我在Haskell有以下记录

data Client = Client { name :: String, info :: String, table :: Table }
data Row = Row { name :: String, value :: String }
type Table = [Row]

我想把文件中的数据作为Clients的列表。我当前的代码看起来像

data Client = Client { name :: String, info :: String, table :: Table }
data Row = Row { name :: String, value :: String }
type Table = [Row]

getClients = atTag "client" >>>
    proc client -> do
        name <- childText "name" -< client
        info <- childText "info" -< client
        table <- getTable <<< atTag "table" -< client

        returnA -< Client name info table
    where
        atTag tag = isElem >>> hasName tag
        atChildTag tag = getChildren >>> atTag tag
        text = getChildren >>> getText
        childText tag = atChildTag tag >>> text

        getTable = atChildTag "row" >>>
            proc row -> do
                name <- childText "name" -< row
                value <- childText "value" -< row
                returnA -< Row name value

但它无法编译，因为它只从Row返回一个getTable，而不是一个Rows列表。由于这是我第一次使用hxt，我知道我做错了什么，但我不知道如何修复它。
任何帮助都很好，谢谢！

最佳答案

我最终在一个相关的问题中找到了答案，我不知道listA的存在（我对arrows也很陌生），这就解决了它！