From c2a3bb3536481cfb2494b8c33ac512356029424a Mon Sep 17 00:00:00 2001
From: nek0 <nek0@chelnok.de>
Date: Tue, 3 Jul 2018 16:49:27 +0200
Subject: [PATCH] unneccessary

---
 src/Main.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/Main.hs b/src/Main.hs
index ace89b4..19b1d00 100644
--- a/src/Main.hs
+++ b/src/Main.hs
@@ -52,7 +52,7 @@ pre = do
   -- _ <- SDL.glSetAttribute SDL.SDL_GL_SHARE_WITH_CURRENT_CONTEXT 1
   threadCtx <- SDL.glCreateContext (drawWindow ad)
   SDL.glMakeCurrent (drawWindow ad) (glContext ad)
-  Subsystems w m k <- subsystems <$> getAffection
+  let Subsystems w m k = subsystems ud
   _ <- partSubscribe w (fitViewport (1280/720))
   _ <- partSubscribe w exitOnWindowClose
   putAffection ud