prevent windows from minimizing

This commit is contained in:
nek0 2019-02-01 05:42:28 +01:00
parent 7a242f9695
commit a9bf484525

View file

@ -63,7 +63,7 @@ main = do
-- set Render quality -- set Render quality
SDL.HintRenderScaleQuality SDL.$= SDL.ScaleLinear SDL.HintRenderScaleQuality SDL.$= SDL.ScaleLinear
uncurry SDL.setHint =<< (,) uncurry SDL.setHint =<< (,)
<$> newCString "SDL_HINT_VIDEO_MINIMIZE_ON_FOCUS_LOSS" <$> newCString "SDL_VIDEO_MINIMIZE_ON_FOCUS_LOSS"
<*> newCString "0" <*> newCString "0"
-- check render quality -- check render quality
renderQuality <- SDL.get SDL.HintRenderScaleQuality renderQuality <- SDL.get SDL.HintRenderScaleQuality