反应式-banana GLFW事件寄存器示例

Question

在related thread中，已经给出了一个准代码示例，也就是说，假设很容易修复：

registerMouseButton :: IO (Event MouseButton)
registerMouseButton = do
(addHandler, fire) <- newAddHandler
setMouseButtonCallback $ \button _ -> fire button
fromAddHandler addHandler

到目前为止，我还不能修复它。有人能提供一个注册关键事件的函数代码片段吗？

Answer 1

如果您使用的是GLFW-b，则可以执行以下操作：

registerMouseButton :: Window -> MomentIO (Event MouseButton)
registerMouseButton window = do
    (mouseEvent, fireMouseEvent) <- newEvent   
    liftIO $ setMouseButtonCallback window $ Just (\_ mouseButton _ _ -> fireMouseEvent mouseButton)
    return mouseEvent