haskell – Netwire相互依赖的电线

为了试用Netwire,我正在使用该库实现Pong.在代码中我有一个球线和一个计算机桨线,由于它们相互依赖某些值,我一直遇到无限循环的问题.一些伪代码解释：

ball :: Wire () IO GameInput Ball
ball = (... define ball ...) . pcPaddle

pcPaddle :: Wire () IO GameInput Paddle
pcPaddle = (... define pcPaddle ...) . ball

要注意的是他们互相接受投入.我试图通过执行以下操作来缓解此问题：

ball :: Wire () IO GameInput Ball
ball = ( ... ) . delay ( ... base paddle init ...) . pcPaddle

以及在这两条线路中使用延迟功能的其他变化,但我得到<< loop>>无论运行时错误.

如何初始化其中一根电线以使该系统可以工作？

当然,5分钟后,我发现似乎有效的神奇组合.我所做的是改变了电线所接受的输入

ball :: Wire () IO Paddle Ball
ball = ...

paddle :: Wire () IO Ball Paddle
paddle = ...

然后,在创建我的电线网络时,我这样做了：

{-# LANGUAGE DoRec  #-}
{-# LANGUAGE Arrows #-}
system = proc g -> do
    rec b <- delay (... ball initial value ...) . ball -< p
        p <- paddle -< b

    returnA -< (b,p)

这确认了它们的依赖性,并在第一次传球时为球拍给出球的虚拟初始值.