move gl call after context creation

This commit is contained in:
nek0 2020-10-16 06:06:39 +02:00
parent bca6fd69e1
commit cd662da0b7

View file

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