diff --git a/src/Main.hs b/src/Main.hs index bfa547e..83f5d54 100644 --- a/src/Main.hs +++ b/src/Main.hs @@ -71,7 +71,7 @@ quitGame (MsgKeyboardEvent _ _ SDL.Pressed False sym) | SDL.keysymKeycode sym == SDL.KeycodeEscape = do ad <- A.get ud <- getAffection - let Subsystem w m k = subsystems ud + let Subsystems w m k = subsystems ud mapM_ (partUnsubscribe w) (uuid ud) mapM_ (partUnsubscribe m) (uuid ud) mapM_ (partUnsubscribe k) (uuid ud)