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