From 500cf17123f6e67d9b0812ca2c39a72bb398ad2b Mon Sep 17 00:00:00 2001 From: nek0 Date: Sat, 22 Sep 2018 01:17:21 +0200 Subject: [PATCH] typo --- src/Main.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) 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)