如何SDL.pollEvent :: IO Event
在输出结束之前发出多个调用SDL.NoEvent
并将所有结果收集到列表中?
在命令性的术语中,这样的事情:
events = []
event = SDL.pollEvent
while ( event != SDL.NoEvent ) {
events.add( event )
event = SDL.pollEvent
}
Run Code Online (Sandbox Code Playgroud)