反应香蕉 GLFW 事件寄存器示例答案

【问题标题】：reactive-banana GLFW event register example反应香蕉 GLFW 事件寄存器示例
【发布时间】：2014-06-23 16:44:01
【问题描述】：

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

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

到目前为止我无法修复它。有人可以提供注册关键事件的功能代码的 sn-p 吗？

【问题讨论】：

标签： haskell functional-programming glfw reactive-banana

【解决方案1】：

如果你使用GLFW-b，你可以这样做：

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

【讨论】：