########################
--
winConfig = SDL.defaultWindow
   { SDL.windowPosition = SDL.C
eventIsESCPress ::SDL.Event -> Bool
eventIsESCPress evt = pressKey $ SDL.eventPayload evt
eventIsESCPress evt = pressKey $ SDL.eventPayload evt