unneccessary

This commit is contained in:
nek0 2018-07-03 16:49:27 +02:00
parent 690179e4ec
commit c2a3bb3536

View file

@ -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