close window on close (duh)

This commit is contained in:
nek0 2017-12-16 11:57:58 +01:00
parent 0b8eac27f4
commit 54018ff71e

View file

@ -100,6 +100,7 @@ pre :: Affection StateData ()
pre = do pre = do
sd <- getAffection sd <- getAffection
_ <- partSubscribe (subKeyboard $ sdSubs sd) exitOnQ _ <- partSubscribe (subKeyboard $ sdSubs sd) exitOnQ
_ <- partSubscribe (subWindow $ sdSubs sd) exitOnWindowClose
return () return ()
exitOnQ :: KeyboardMessage -> Affection StateData () exitOnQ :: KeyboardMessage -> Affection StateData ()
@ -110,6 +111,14 @@ exitOnQ (MsgKeyboardEvent _ _ _ _ sym) =
quit quit
_ -> return () _ -> return ()
exitOnWindowClose :: WindowMessage -> Affection StateData ()
exitOnWindowClose wm =
case wm of
MsgWindowClose _ _ -> do
liftIO $ logIO Debug "I heard another one..."
quit
_ -> return ()
handle :: [SDL.EventPayload] -> Affection StateData () handle :: [SDL.EventPayload] -> Affection StateData ()
handle es = do handle es = do
(Subsystems a b c) <- sdSubs <$> getAffection (Subsystems a b c) <- sdSubs <$> getAffection