nek0/haskelloids
1
0
Fork 0
Code Issues Pull requests Releases Wiki Activity

hide yo … cursor

Browse source
This commit is contained in:
nek0 2017-12-22 09:12:04 +01:00
parent 53f7a2af0e
commit ac86e5bbfd
1 changed files with 2 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
src/Init.hs
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