We read every piece of feedback, and take your input very seriously.
To see all available qualifiers, see our documentation.
1 parent 73db004 commit f747a61Copy full SHA for f747a61
examples/EventWatch.hs
@@ -59,7 +59,7 @@ appLoop = waitEvent >>= go
59
MouseButtonEvent mouseButtonEvent
60
-> print mouseButtonEvent >> waitEvent >>= go
61
MouseWheelEvent mouseWheelEvent
62
- -> print mouseWheelEvent >> waitEvent >>= go
+ -> print mouseWheelEvent >> waitEvent >>= go
63
QuitEvent
64
-> return ()
65
_ -> waitEvent >>= go
0 commit comments