close window on close (duh)

This commit is contained in:
nek0 2017-12-16 11:57:58 +01:00
parent 0b8eac27f4
commit 54018ff71e
1 changed files with 9 additions and 0 deletions

View File

@ -100,6 +100,7 @@ pre :: Affection StateData ()
pre = do
sd <- getAffection
_ <- partSubscribe (subKeyboard $ sdSubs sd) exitOnQ
_ <- partSubscribe (subWindow $ sdSubs sd) exitOnWindowClose
return ()
exitOnQ :: KeyboardMessage -> Affection StateData ()
@ -110,6 +111,14 @@ exitOnQ (MsgKeyboardEvent _ _ _ _ sym) =
quit
_ -> 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 es = do
(Subsystems a b c) <- sdSubs <$> getAffection