close window on close (duh)

examples/example00.hs

@@ -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