move gl call after context creation

extern/affection/src/Affection.hs

@@ -57,8 +57,6 @@ withAffection AffectionConfig{..} = do
       SDL.initialize is
   -- give SDL render quality
   SDL.HintRenderScaleQuality SDL.$= SDL.ScaleLinear
-  -- sync updates with monitor
-  SDL.swapInterval $= SDL.SynchronizedUpdates
   -- just checking…
   do
     renderQuality <- SDL.get SDL.HintRenderScaleQuality
@@ -77,6 +75,7 @@ withAffection AffectionConfig{..} = do
   contexts <- zip (map (\(x,_,_) -> x) windows) <$>
     mapM (SDL.glCreateContext . (\(_,y,_) -> y)) windows
   mapM_ (\w -> flip SDL.setWindowMode  ((\(_,_,z) -> z) w) ((\(_,y,_) -> y) w)) windows
+  -- sync updates with monitor
   -- SDL.swapInterval $= SDL.SynchronizedUpdates -- <- causes Problems with windows
   liftIO $ logIO Debug "Getting Time"
   -- print current used GL Version