haskell - 反应香蕉 GLFW 事件寄存器示例

Question

在一个相关的线程中，已经给出了一个准代码示例，也就是说，据说很容易修复：

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