From 48b8aaf379c8364328cf581084310994aa86032a Mon Sep 17 00:00:00 2001
From: nek0 <nek0@nek0.eu>
Date: Sat, 22 Sep 2018 01:18:24 +0200
Subject: [PATCH] typo

---
 src/Main.hs | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/src/Main.hs b/src/Main.hs
index 83f5d54..4e9bde3 100644
--- a/src/Main.hs
+++ b/src/Main.hs
@@ -72,9 +72,9 @@ quitGame (MsgKeyboardEvent _ _ SDL.Pressed False sym)
     ad <- A.get
     ud <- getAffection
     let Subsystems w m k = subsystems ud
-    mapM_ (partUnsubscribe w) (uuid ud)
-    mapM_ (partUnsubscribe m) (uuid ud)
-    mapM_ (partUnsubscribe k) (uuid 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