reactive-banana GLFW event register example

Question

In a related thread there has been given a quasi-code example, that is, supposedly, easy to fix:

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

I could not fix it so far. Can somebody provide a snippet of a functional code that registers a key event?

score 0 · Answer 1 · answered Oct 01 '16 at 10:53

If you are using GLFW-b, you can do this:

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

reactive-banana GLFW event register example

1 Answers1