20 lines
349 B
Haskell
20 lines
349 B
Haskell
|
module Menu where
|
||
|
|
|
||
|
|
import Affection
|
||
|
|
import qualified SDL
|
||
|
|
|
||
|
|
import Debug.Trace
|
||
|
|
|
||
|
|
import Types
|
||
|
|
|
||
|
|
handleMenuEvent :: Double -> SDL.Event -> Affection UserData ()
|
||
|
|
handleMenuEvent sec e = do
|
||
|
|
ad <- get
|
||
|
|
case SDL.eventPayload e of
|
||
|
|
SDL.WindowClosedEvent _ -> do
|
||
|
|
traceM "seeya!"
|
||
|
|
put ad
|
||
|
|
{ quitEvent = True
|
||
|
|
}
|
||
|
|
_ -> return ()
|