don't duplicate main context

src/Init.hs

@@ -46,7 +46,6 @@ init = do
     , worldState      = ws
     , stateData       = None
     , threadContext   = Nothing
-    , mainContext     = Nothing
     }
 
 loadPlayerSprite

src/Load.hs

@@ -25,6 +25,7 @@ import Util
 
 loadLoad :: Affection UserData ()
 loadLoad = do
+  ad <- A.get
   ud <- getAffection
   progress <- liftIO $ newMVar 0
   future <- liftIO $ newEmptyMVar
@@ -38,7 +39,7 @@ loadLoad = do
       (nano ud)
       future
       progress
-  SDL.glMakeCurrent (fromJust $ window ud) (fromJust $ mainContext ud)
+  SDL.glMakeCurrent (fromJust $ window ud) (glContext ad)
   putAffection ud
     { stateMVar = future
     , stateProgress = progress

src/Main.hs

@@ -57,7 +57,6 @@ pre = do
   _ <- partSubscribe w exitOnWindowClose
   putAffection ud
     { threadContext = Just threadCtx
-    , mainContext = Just (glContext ad)
     , window = Just (drawWindow ad)
     }
 

src/Types/UserData.hs

@@ -37,7 +37,6 @@ data UserData = UserData
   , stateMVar       :: MVar (SystemState Entity IO, StateData)
   , stateProgress   :: MVar Float
   , threadContext   :: Maybe SDL.GLContext
-  , mainContext     :: Maybe SDL.GLContext
   , window          :: Maybe SDL.Window
   }