ibis/src/Events.hs

19 lines
367 B
Haskell

module Events where
import qualified SDL
import Linear
-- internal impomrts
import Util
eventHandler :: SDL.Event -> IO ()
eventHandler (SDL.Event _ payload) =
handlePayload payload
handlePayload :: SDL.EventPayload -> IO ()
handlePayload (SDL.WindowResizedEvent (SDL.WindowResizedEventData _ dim)) =
fitViewport (800 / 600) dim
handlePayload _ = return ()