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