hide yo … cursor

This commit is contained in:
nek0 2017-12-22 09:12:04 +01:00
parent 53f7a2af0e
commit ac86e5bbfd

View file

@ -4,6 +4,7 @@ module Init where
import Affection as A import Affection as A
import SDL (($=)) import SDL (($=))
import qualified SDL
import qualified Graphics.Rendering.OpenGL as GL import qualified Graphics.Rendering.OpenGL as GL
@ -33,6 +34,7 @@ load :: IO UserData
load = do load = do
-- liftIO $ logIO A.Debug "Let's drop some Hints for SDL" -- liftIO $ logIO A.Debug "Let's drop some Hints for SDL"
-- SDL.HintRenderDriver $= SDL.OpenGL -- SDL.HintRenderDriver $= SDL.OpenGL
SDL.cursorVisible $= False
GL.clearColor $= GL.Color4 0 0 0.1 1 GL.clearColor $= GL.Color4 0 0 0.1 1
liftIO $ logIO A.Debug "init GLEW" liftIO $ logIO A.Debug "init GLEW"
_ <- glewInit _ <- glewInit