From ac86e5bbfd91c53d0114bc78a9c290e8aa19844d Mon Sep 17 00:00:00 2001 From: nek0 Date: Fri, 22 Dec 2017 09:12:04 +0100 Subject: [PATCH] =?UTF-8?q?hide=20yo=20=E2=80=A6=20cursor?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- src/Init.hs | 2 ++ 1 file changed, 2 insertions(+) diff --git a/src/Init.hs b/src/Init.hs index 83a3ea1..a7314ca 100644 --- a/src/Init.hs +++ b/src/Init.hs @@ -4,6 +4,7 @@ module Init where import Affection as A import SDL (($=)) +import qualified SDL import qualified Graphics.Rendering.OpenGL as GL @@ -33,6 +34,7 @@ load :: IO UserData load = do -- liftIO $ logIO A.Debug "Let's drop some Hints for SDL" -- SDL.HintRenderDriver $= SDL.OpenGL + SDL.cursorVisible $= False GL.clearColor $= GL.Color4 0 0 0.1 1 liftIO $ logIO A.Debug "init GLEW" _ <- glewInit