ibis/src/Events.hs

19 lines
367 B
Haskell
Raw Normal View History

2019-01-31 15:01:01 +00:00
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 ()