如何在Purescript Halogen中实现类似自动递增计数器的功能

Question

在像React这样的东西中给出一个非常简单的增量组件：

class Increment extends React.Component {
  constructor(props){
    super(props)
    this.state = {
      value: props.value
    }
  }

  componentDidMount() {
    setInterval(() => {
      this.setState(({ value }) => ({ value: value + 1 }))
    }, 1000);
  }

  render(){
    return (
      <p>{ this.state.value }</p>
    );
  }
}


ReactDOM.render(<Increment value={0} />, document.getElementById('root'))

这如何转化为Purescript的卤素？在网上浏览各种东西，我还没有找到任何例子，我可以工作到我自己的原型。我知道Effect.Time公开了setInterval，但是我如何使用它来触发一些可以让我更新状态的东西(在受控的操作中，通过handleAction)。

我正在尝试将一个应用程序从Elm迁移到卤素，在该应用程序中，它依赖于subscriptions函数来实现一些关键的功能，以更新与用户直接输入无关的应用程序状态。如果卤素有类似的功能(我见过subscribe，尽管这似乎与父/子组件之间的通信有关，但我可能误解了这一点……)被指向它将是一件很好的事情。

Answer 1

这是一个用卤素写的counter例子，代码在purescript-halogen-storybook example。

要使其自动递增，可以在初始化处理程序中添加一个自循环函数。

loop = 
  H.liftAff $ Aff.delay $ Aff.Milliseconds 1000.0
  H.modify_ \s -> s { value = s.value + 1 }
  loop

handleAction Initialize = loop

查看官方的lifecycle示例，了解如何使用initialize。