19 lines
367 B
Haskell
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 ()
|