diff --git a/GLFW-b.cabal b/GLFW-b.cabal
--- a/GLFW-b.cabal
+++ b/GLFW-b.cabal
@@ -1,5 +1,5 @@
 name:         GLFW-b
-version:      0.1.0.0
+version:      0.1.0.1
 
 category:     Graphics
 
diff --git a/src/Graphics/UI/GLFW.hsc b/src/Graphics/UI/GLFW.hsc
--- a/src/Graphics/UI/GLFW.hsc
+++ b/src/Graphics/UI/GLFW.hsc
@@ -73,6 +73,8 @@
   , setMouseButtonCallback
   , setMousePositionCallback
   , setMouseWheelCallback
+  , enableMouseCursor
+  , disableMouseCursor
     --
   , MouseButton(..)
   , MouseButtonCallback
@@ -163,6 +165,9 @@
 
 foreign import ccall glfwGetGLVersion             :: Ptr CInt -> Ptr CInt -> Ptr CInt -> IO ()
 
+foreign import ccall glfwEnable                   :: CInt -> IO ()
+foreign import ccall glfwDisable                  :: CInt -> IO ()
+
 type GlfwCharCallback          = CInt -> CInt -> IO ()
 type GlfwKeyCallback           = CInt -> CInt -> IO ()
 type GlfwMouseButtonCallback   = CInt -> CInt -> IO ()
@@ -824,6 +829,14 @@
     ccb <- wrapMouseWheelCallback (cb . fromC)
     glfwSetMouseWheelCallback ccb
     storeCallback mouseWheelCallback ccb
+
+-- |Make the mouse cursor visible.
+enableMouseCursor :: IO ()
+enableMouseCursor = glfwEnable (#const GLFW_MOUSE_CURSOR)
+
+-- |Make the mouse cursor invisible.
+disableMouseCursor :: IO ()
+disableMouseCursor = glfwDisable (#const GLFW_MOUSE_CURSOR)
 
 -- -- -- -- -- -- -- -- -- --