This commit is contained in:
nek0 2018-09-22 00:59:19 +02:00
parent 3c64098157
commit b2bdfa3e27

View file

@ -71,6 +71,10 @@ quitGame (MsgKeyboardEvent _ _ SDL.Pressed False sym)
| SDL.keysymKeycode sym == SDL.KeycodeEscape = do
ad <- A.get
ud <- getAffection
let Subsystem w m k = subsystems ud
mapM_ (partUnsubscribe w) (uuid ud)
mapM_ (partUnsubscribe m) (uuid ud)
mapM_ (partUnsubscribe k) (uuid ud)
SDL.glMakeCurrent (drawWindow ad) (glContext ad)
(ws, _) <- yieldSystemT (0, defStorage) (return ())
putAffection ud