Haskell HXT 拆分 XML 数据

Question

我对箭还很陌生，所以请放轻松...

我正在尝试计算 XML 文件中特定节点的数量。 XML 文件的布局使得在根目录下，我们有一个场景列表，在每个场景下我们都有一个图层列表，每个图层都有一个名为 'recs' 的节点。我想计算每个场景中的矩形数。我不太明白HXT是如何工作的。

我将复制导致问题的代码摘录

process :: IOSArrow XmlTree [XmlTree]
process getScene >>. map func
    where func a = a >>> getLayer >>> getRec

每个 get 函数都是 IOSArrow XmlTree XmlTree

类型

为什么这不起作用？我该如何解决？

错误信息：

count_dirty.hs:20:16: error:
    • Couldn't match type ‘Data.Tree.NTree.TypeDefs.NTree XNode’
                     with ‘IOSLA (XIOState ()) a0 XmlTree’
      Expected type: [XmlTree] -> [IOSLA (XIOState ()) a0 XmlTree]
        Actual type: [IOSLA (XIOState ()) a0 XmlTree]
                     -> [IOSLA (XIOState ()) a0 XmlTree]
    • In the second argument of ‘(>>.)’, namely ‘map func’
      In the second argument of ‘(>>>)’, namely ‘getScene >>. map func’
      In the expression:
        readDocument [withValidate no] file >>> getScene >>. map func
   |
20 |   getScene >>. map func
   |                ^^^^^^^^

谢谢！

Answer 1

您在这里声明 func 是一个辅助函数，它需要一些 a，然后计算 a >>> getLayer >>> getRec。

作为

getRec :: IOSArrow XmlTree XmlTree
(>>>)  :: (Category cat) => cat a b -> cat b c -> cat a c

GHC 可以推断出 a >>> getRec 意味着 cat ~ IOSArrow, b ~ XmlTree, c ~ XmlTree，而变量 a 的类型未定 IOSArrow a XmlTree，因此

func :: a -> IOSArrow XmlTree XmlTree

和

map :: (x -> y) -> [x] -> [y]

map func :: [a] -> [IOSArrow XmlTree XmlTree]

从

开始

(>>.) :: a b c -> ([c] -> [d]) -> a b d 

getScene >>. :: ([XmlTree] -> [d]) -> IOSArrow XmlTree d

而现在 GHC 非常确定a ~ XmlTree, d ~ IOSArrow XmlTree XmlTree，给出

getScene >>. map func 
  :: IOSArrow 
       XmlTree 
       (IOSArrow XmlTree XmlTree)

问题来自您的 map func - >>. 需要一个纯函数作为它的第二个参数。 func，在你的例子中，是一个产生箭头的函数，它不是纯的。

我想您可能想使用 applyA，它可以让您从输入生成一个箭头，然后应用该箭头，这正是您在这里所做的。在这种情况下，你会写

process = applyA (getScene >>. map func)
    ...

请注意，您正在使用列表箭头，因此类型签名应该是

process :: IOSArrow XmlTree XmlTree

Haskell HXT 拆分 XML 数据

Haskell HXT splitting up XML data

haskell

arrows

hxt