Remove deprecated functions from SDL.Input.Mouse

Author: polarina

ChangeLog.md

@@ -6,6 +6,9 @@
 * Remove deprecated functionality:
   * `InitEverything` enumeration in `SDL.Init`
   * `mapRGB` in `SDL.Video.Renderer`
+  * `setRelativeMouseMode` in `SDL.Input.Mouse`
+  * `getRelativeMouseMode` in `SDL.Input.Mouse`
+  * `getMouseLocation` in `SDL.Input.Mouse`
 * Merge `isScreenSaverEnabled, `enableScreenSaver`, and `disableScreenSaver`
   into a `screenSaverEnabled` StateVar.
 * Fix issue with `setWindowMode` transitions not working properly between

src/SDL/Input/Mouse.hs

@@ -10,16 +10,13 @@ module SDL.Input.Mouse
     LocationMode(..)
   , setMouseLocationMode
   , getMouseLocationMode
-  , setRelativeMouseMode --deprecated
-  , getRelativeMouseMode --deprecated
 
     -- * Mouse and Touch Input
   , MouseButton(..)
   , MouseDevice(..)
 
     -- * Mouse State
   , getModalMouseLocation
-  , getMouseLocation --deprecated
   , getAbsoluteMouseLocation
   , getRelativeMouseLocation
   , getMouseButtons
@@ -92,23 +89,6 @@ getModalMouseLocation = do
     _ -> getAbsoluteMouseLocation
   return (mode, location)
 
--- deprecated
-setRelativeMouseMode :: (Functor m, MonadIO m) => Bool -> m ()
-{-# DEPRECATED setRelativeMouseMode "Use setMouseLocationMode instead" #-}
-setRelativeMouseMode enable =
-  throwIfNeg_ "SDL.Input.Mouse" "SDL_SetRelativeMouseMode" $
-    Raw.setRelativeMouseMode enable
-
---deprecated
-getRelativeMouseMode :: MonadIO m => m Bool
-{-# DEPRECATED getRelativeMouseMode "Use getMouseLocationMode instead" #-}
-getRelativeMouseMode = Raw.getRelativeMouseMode
-
---deprecated
-getMouseLocation :: MonadIO m => m (Point V2 CInt)
-{-# DEPRECATED getMouseLocation "Use getAbsoluteMouseLocation instead, or getModalMouseLocation to match future behavior." #-}
-getMouseLocation = getAbsoluteMouseLocation
-
 data MouseButton
   = ButtonLeft
   | ButtonMiddle