Fix broken links to SDL wiki

They restructured their URLs upstream, prefixing with /SDL2 or /SDL3,
and the old URLs redirect to SDL3 now.

Author: kenranunderscore

README.md

@@ -91,14 +91,14 @@ We need your help! The SDL API is fairly large, and the more hands we have, the
 quicker we can reach full coverage and release this to Hackage. There are a few
 ways you can help:
 
-1. Browse http://wiki.libsdl.org/CategoryAPI and find functions that aren't
+1. Browse https://wiki.libsdl.org/SDL2/CategoryAPI and find functions that aren't
    exposed in the high-level bindings.
 
 2. The above can be somewhat laborious - an easier way to find out what's
    missing is to write code.
 
-   * http://www.willusher.io/pages/sdl2/ is a collection of tutorials for C++.
-   * http://lazyfoo.net/tutorials/SDL/index.php is another collection of C++
+   * https://www.willusher.io/pages/sdl2/ is a collection of tutorials for C++.
+   * https://lazyfoo.net/tutorials/SDL/index.php is another collection of C++
      tutorials.
 
    Both of these would be useful if they were translated to Haskell, and we'd be

src/SDL/Audio.hs

@@ -140,7 +140,7 @@ data OpenDeviceSpec = forall sampleType. OpenDeviceSpec
 -- | Attempt to open the closest matching 'AudioDevice', as specified by the
 -- given 'OpenDeviceSpec'.
 --
--- See @<https://wiki.libsdl.org/SDL_OpenAudioDevice SDL_OpenAudioDevice>@ for C documentation.
+-- See @<https://wiki.libsdl.org/SDL2/SDL_OpenAudioDevice SDL_OpenAudioDevice>@ for C documentation.
 openAudioDevice :: MonadIO m => OpenDeviceSpec -> m (AudioDevice, AudioSpec)
 openAudioDevice OpenDeviceSpec{..} = liftIO $
   maybeWith (BS.useAsCString . Text.encodeUtf8) openDeviceName $ \cDevName -> do
@@ -224,7 +224,7 @@ data Dict :: Constraint -> Type where
 
 -- |
 --
--- See @<https://wiki.libsdl.org/SDL_CloseAudioDevice SDL_CloseAudioDevice>@ for C documentation.
+-- See @<https://wiki.libsdl.org/SDL2/SDL_CloseAudioDevice SDL_CloseAudioDevice>@ for C documentation.
 closeAudioDevice :: MonadIO m => AudioDevice -> m ()
 closeAudioDevice (AudioDevice d) = Raw.closeAudioDevice d
 

src/SDL/Event.hs

@@ -889,7 +889,7 @@ registerEvent registeredEventDataToEvent eventToRegisteredEventData = do
 --
 -- 'pumpEvents' gathers all the pending input information from devices and places it in the event queue. Without calls to 'pumpEvents' no events would ever be placed on the queue. Often the need for calls to 'pumpEvents' is hidden from the user since 'pollEvent' and 'waitEvent' implicitly call 'pumpEvents'. However, if you are not polling or waiting for events (e.g. you are filtering them), then you must call 'pumpEvents' to force an event queue update.
 --
--- See @<https://wiki.libsdl.org/SDL_PumpEvents SDL_PumpEvents>@ for C documentation.
+-- See @<https://wiki.libsdl.org/SDL2/SDL_PumpEvents SDL_PumpEvents>@ for C documentation.
 pumpEvents :: MonadIO m => m ()
 pumpEvents = Raw.pumpEvents
 
@@ -901,7 +901,7 @@ newtype EventWatch = EventWatch {runEventWatchRemoval :: IO ()}
 -- | Trigger an 'EventWatchCallback' when an event is added to the SDL
 -- event queue.
 --
--- See @<https://wiki.libsdl.org/SDL_AddEventWatch>@ for C documentation.
+-- See @<https://wiki.libsdl.org/SDL2/SDL_AddEventWatch>@ for C documentation.
 addEventWatch :: MonadIO m => EventWatchCallback -> m EventWatch
 addEventWatch callback = liftIO $ do
   rawFilter <- Raw.mkEventFilter wrappedCb
@@ -918,7 +918,7 @@ addEventWatch callback = liftIO $ do
 
 -- | Remove an 'EventWatch'.
 --
--- See @<https://wiki.libsdl.org/SDL_DelEventWatch>@ for C documentation.
+-- See @<https://wiki.libsdl.org/SDL2/SDL_DelEventWatch>@ for C documentation.
 delEventWatch :: MonadIO m => EventWatch -> m ()
 delEventWatch = liftIO . runEventWatchRemoval
 

src/SDL/Hint.hs

@@ -136,7 +136,7 @@ data VideoWinD3DCompilerOptions
   deriving (Bounded, Data, Enum, Eq, Generic, Ord, Read, Show, Typeable)
 
 -- | The 'Hint' type exports a well-typed interface to SDL's concept of
--- <https://wiki.libsdl.org/CategoryHints hints>. This type has instances for
+-- <https://wiki.libsdl.org/SDL2/CategoryHints hints>. This type has instances for
 -- both 'HasGetter' and 'HasSetter', allowing you to get and set hints. Note that
 -- the 'HasSetter' interface is fairly relaxed - if a hint cannot be set, the
 -- failure will be silently discarded. For more feedback and control when setting

src/SDL/Input/GameController.hs

@@ -83,7 +83,7 @@ availableControllers = liftIO $ do
 
 {- | Open a controller so that you can start receiving events from interaction with this controller.
 
- See @<https://wiki.libsdl.org/SDL_GameControllerOpen SDL_GameControllerOpen>@ for C documentation.
+ See @<https://wiki.libsdl.org/SDL2/SDL_GameControllerOpen SDL_GameControllerOpen>@ for C documentation.
 -}
 openController
   :: (Functor m, MonadIO m)
@@ -97,22 +97,22 @@ openController (ControllerDevice _ x) =
 
 {- | Close a controller previously opened with 'openController'.
 
- See @<https://wiki.libsdl.org/SDL_GameControllerClose SDL_GameControllerClose>@ for C documentation.
+ See @<https://wiki.libsdl.org/SDL2/SDL_GameControllerClose SDL_GameControllerClose>@ for C documentation.
 -}
 closeController :: MonadIO m => GameController -> m ()
 closeController (GameController j) = Raw.gameControllerClose j
 
 {- | Check if a controller has been opened and is currently connected.
 
- See @<https://wiki.libsdl.org/SDL_GameControllerGetAttached SDL_GameControllerGetAttached>@ for C documentation.
+ See @<https://wiki.libsdl.org/SDL2/SDL_GameControllerGetAttached SDL_GameControllerGetAttached>@ for C documentation.
 -}
 controllerAttached :: MonadIO m => GameController -> m Bool
 controllerAttached (GameController c) = Raw.gameControllerGetAttached c
 
 {- | Get the instance ID of an opened controller. The instance ID is used to identify the controller
  in future SDL events.
 
- See @<https://wiki.libsdl.org/SDL_GameControllerInstanceID SDL_GameControllerInstanceID>@ for C documentation.
+ See @<https://wiki.libsdl.org/SDL2/SDL_GameControllerInstanceID SDL_GameControllerInstanceID>@ for C documentation.
 -}
 getControllerID :: MonadIO m => GameController -> m Int32
 getControllerID (GameController c) =
@@ -121,7 +121,7 @@ getControllerID (GameController c) =
 
 {- | Get the current mapping of a Game Controller.
 
- See @<https://wiki.libsdl.org/SDL_GameControllerMapping SDL_GameControllerMapping>@ for C documentation.
+ See @<https://wiki.libsdl.org/SDL2/SDL_GameControllerMapping SDL_GameControllerMapping>@ for C documentation.
 -}
 controllerMapping :: MonadIO m => GameController -> m Text
 controllerMapping (GameController c) = liftIO $ do
@@ -133,7 +133,7 @@ controllerMapping (GameController c) = liftIO $ do
 {- | Add support for controllers that SDL is unaware of or to cause an existing controller to
  have a different binding.
 
- See @<https://wiki.libsdl.org/SDL_GameControllerAddMapping SDL_GameControllerAddMapping>@ for C documentation.
+ See @<https://wiki.libsdl.org/SDL2/SDL_GameControllerAddMapping SDL_GameControllerAddMapping>@ for C documentation.
 -}
 addControllerMapping :: MonadIO m => BS.ByteString -> m ()
 addControllerMapping mapping =
@@ -148,7 +148,7 @@ addControllerMapping mapping =
  @<https://raw.githubusercontent.com/gabomdq/SDL_GameControllerDB/master/gamecontrollerdb.txt here>@
  (on GitHub).
 
- See @<https://wiki.libsdl.org/SDL_GameControllerAddMappingsFromFile SDL_GameControllerAddMappingsFromFile>@ for C documentation.
+ See @<https://wiki.libsdl.org/SDL2/SDL_GameControllerAddMappingsFromFile SDL_GameControllerAddMappingsFromFile>@ for C documentation.
 -}
 addControllerMappingsFromFile :: MonadIO m => FilePath -> m ()
 addControllerMappingsFromFile mappingFile =
@@ -158,15 +158,15 @@ addControllerMappingsFromFile mappingFile =
 
 {- | Get the current state of an axis control on a game controller.
 
- See @<https://wiki.libsdl.org/SDL_GameControllerGetAxis SDL_GameControllerGetAxis>@ for C documentation.
+ See @<https://wiki.libsdl.org/SDL2/SDL_GameControllerGetAxis SDL_GameControllerGetAxis>@ for C documentation.
 -}
 controllerAxis :: MonadIO m => GameController -> ControllerAxis -> m Int16
 controllerAxis (GameController c) axis =
   Raw.gameControllerGetAxis c (toNumber axis)
 
 {- | Get the current state of a button on a game controller.
 
- See @<https://wiki.libsdl.org/SDL_GameControllerGetButton SDL_GameControllerGetButton>@ for C documentation.
+ See @<https://wiki.libsdl.org/SDL2/SDL_GameControllerGetButton SDL_GameControllerGetButton>@ for C documentation.
 -}
 controllerButton :: MonadIO m => GameController -> ControllerButton -> m ControllerButtonState
 controllerButton (GameController c) button =

src/SDL/Input/Joystick.hs

@@ -71,7 +71,7 @@ instance FromNumber JoyButtonState Word8 where
 
 -- | Count the number of joysticks attached to the system.
 --
--- See @<https://wiki.libsdl.org/SDL_NumJoysticks SDL_NumJoysticks>@ for C documentation.
+-- See @<https://wiki.libsdl.org/SDL2/SDL_NumJoysticks SDL_NumJoysticks>@ for C documentation.
 numJoysticks :: MonadIO m => m (CInt)
 numJoysticks = throwIfNeg "SDL.Input.Joystick.availableJoysticks" "SDL_NumJoysticks" Raw.numJoysticks
 
@@ -89,7 +89,7 @@ availableJoysticks = liftIO $ do
 
 -- | Open a joystick so that you can start receiving events from interaction with this joystick.
 --
--- See @<https://wiki.libsdl.org/SDL_JoystickOpen SDL_JoystickOpen>@ for C documentation.
+-- See @<https://wiki.libsdl.org/SDL2/SDL_JoystickOpen SDL_JoystickOpen>@ for C documentation.
 openJoystick :: (Functor m,MonadIO m)
              => JoystickDevice -- ^ The device to open. Use 'availableJoysticks' to find 'JoystickDevices's
              -> m Joystick
@@ -100,22 +100,22 @@ openJoystick (JoystickDevice _ x) =
 
 -- | Close a joystick previously opened with 'openJoystick'.
 --
--- See @<https://wiki.libsdl.org/SDL_JoystickClose SDL_JoystickClose>@ for C documentation.
+-- See @<https://wiki.libsdl.org/SDL2/SDL_JoystickClose SDL_JoystickClose>@ for C documentation.
 closeJoystick :: MonadIO m => Joystick -> m ()
 closeJoystick (Joystick j) = Raw.joystickClose j
 
 -- | Get the instance ID of an opened joystick. The instance ID is used to identify the joystick
 -- in future SDL events.
 --
--- See @<https://wiki.libsdl.org/SDL_JoystickInstanceID SDL_JoystickInstanceID>@ for C documentation.
+-- See @<https://wiki.libsdl.org/SDL2/SDL_JoystickInstanceID SDL_JoystickInstanceID>@ for C documentation.
 getJoystickID :: MonadIO m => Joystick -> m Raw.JoystickID
 getJoystickID (Joystick j) =
   throwIfNeg "SDL.Input.Joystick.getJoystickID" "SDL_JoystickInstanceID" $
   Raw.joystickInstanceID j
 
 -- | Determine if a given button is currently held.
 --
--- See @<https://wiki.libsdl.org/SDL_JoystickGetButton SDL_JoystickGetButton>@ for C documentation.
+-- See @<https://wiki.libsdl.org/SDL2/SDL_JoystickGetButton SDL_JoystickGetButton>@ for C documentation.
 buttonPressed :: (Functor m, MonadIO m)
               => Joystick
               -> CInt -- ^ The index of the button. You can use 'numButtons' to determine how many buttons a given joystick has.
@@ -124,7 +124,7 @@ buttonPressed (Joystick j) buttonIndex = (== 1) <$> Raw.joystickGetButton j butt
 
 -- | Get the ball axis change since the last poll.
 --
--- See @<https://wiki.libsdl.org/SDL_JoystickGetBall SDL_JoystickGetBall>@ for C documentation.
+-- See @<https://wiki.libsdl.org/SDL2/SDL_JoystickGetBall SDL_JoystickGetBall>@ for C documentation.
 ballDelta :: MonadIO m
           => Joystick
           -> CInt -- ^ The index of the joystick ball. You can use 'numBalls' to determine how many balls a given joystick has.
@@ -145,25 +145,25 @@ ballDelta (Joystick j) ballIndex = liftIO $
 --
 -- Some joysticks use axes 2 and 3 for extra buttons.
 --
--- See @<https://wiki.libsdl.org/SDL_JoystickGetAxis SDL_JoystickGetAxis>@ for C documentation.
+-- See @<https://wiki.libsdl.org/SDL2/SDL_JoystickGetAxis SDL_JoystickGetAxis>@ for C documentation.
 axisPosition :: MonadIO m => Joystick -> CInt -> m Int16
 axisPosition (Joystick j) axisIndex = Raw.joystickGetAxis j axisIndex
 
 -- | Get the number of general axis controls on a joystick.
 --
--- See @<https://wiki.libsdl.org/SDL_JoystickNumAxes SDL_JoystickNumAxes>@ for C documentation.
+-- See @<https://wiki.libsdl.org/SDL2/SDL_JoystickNumAxes SDL_JoystickNumAxes>@ for C documentation.
 numAxes :: (MonadIO m) => Joystick -> m CInt
 numAxes (Joystick j) = liftIO $ throwIfNeg "SDL.Input.Joystick.numAxis" "SDL_JoystickNumAxes" (Raw.joystickNumAxes j)
 
 -- | Get the number of buttons on a joystick.
 --
--- See @<https://wiki.libsdl.org/SDL_JoystickNumButtons SDL_JoystickNumButtons>@ for C documentation.
+-- See @<https://wiki.libsdl.org/SDL2/SDL_JoystickNumButtons SDL_JoystickNumButtons>@ for C documentation.
 numButtons :: (MonadIO m) => Joystick -> m CInt
 numButtons (Joystick j) = liftIO $ throwIfNeg "SDL.Input.Joystick.numButtons" "SDL_JoystickNumButtons" (Raw.joystickNumButtons j)
 
 -- | Get the number of trackballs on a joystick.
 --
--- See @<https://wiki.libsdl.org/SDL_JoystickNumBalls SDL_JoystickNumBalls>@ for C documentation.
+-- See @<https://wiki.libsdl.org/SDL2/SDL_JoystickNumBalls SDL_JoystickNumBalls>@ for C documentation.
 numBalls :: (MonadIO m) => Joystick -> m CInt
 numBalls (Joystick j) = liftIO $ throwIfNeg "SDL.Input.Joystick.numBalls" "SDL_JoystickNumBalls" (Raw.joystickNumBalls j)
 
@@ -195,7 +195,7 @@ instance FromNumber JoyHatPosition Word8 where
 
 -- | Get current position of a POV hat on a joystick.
 --
--- See @<https://wiki.libsdl.org/SDL_JoystickGetHat SDL_JoystickGetHat>@ for C documentation.
+-- See @<https://wiki.libsdl.org/SDL2/SDL_JoystickGetHat SDL_JoystickGetHat>@ for C documentation.
 getHat :: (Functor m, MonadIO m)
        => Joystick
        -> CInt -- ^ The index of the POV hat. You can use 'numHats' to determine how many POV hats a given joystick has.
@@ -204,7 +204,7 @@ getHat (Joystick j) hatIndex = fromNumber <$> Raw.joystickGetHat j hatIndex
 
 -- | Get the number of POV hats on a joystick.
 --
--- See @<https://wiki.libsdl.org/https://wiki.libsdl.org/SDL_JoystickNumHats SDL_JoystickNumHats>@ for C documentation.
+-- See @<https://wiki.libsdl.org/SDL2/SDL_JoystickNumHats SDL_JoystickNumHats>@ for C documentation.
 numHats :: (MonadIO m) => Joystick -> m CInt
 numHats (Joystick j) = liftIO $ throwIfNeg "SDL.Input.Joystick.numHats" "SDL_JoystickNumHats" (Raw.joystickNumHats j)
 

src/SDL/Input/Keyboard.hs

@@ -56,7 +56,7 @@ import Control.Applicative
 
 -- | Get the current key modifier state for the keyboard. The key modifier state is a mask special keys that are held down.
 --
--- See @<https://wiki.libsdl.org/SDL_GetModState SDL_GetModState>@ for C documentation.
+-- See @<https://wiki.libsdl.org/SDL2/SDL_GetModState SDL_GetModState>@ for C documentation.
 getModState :: (Functor m, MonadIO m) => m KeyModifier
 getModState = fromNumber <$> Raw.getModState
 
@@ -108,7 +108,7 @@ instance ToNumber KeyModifier Word32 where
 -- | Set the rectangle used to type text inputs and start accepting text input
 -- events.
 --
--- See @<https://wiki.libsdl.org/SDL_StartTextInput SDL_StartTextInput>@ for C documentation.
+-- See @<https://wiki.libsdl.org/SDL2/SDL_StartTextInput SDL_StartTextInput>@ for C documentation.
 startTextInput :: MonadIO m => Raw.Rect -> m ()
 startTextInput rect = liftIO $ do
   alloca $ \ptr -> do
@@ -118,25 +118,25 @@ startTextInput rect = liftIO $ do
 
 -- | Stop receiving any text input events.
 --
--- See @<https://wiki.libsdl.org/SDL_StopTextInput SDL_StopTextInput>@ for C documentation.
+-- See @<https://wiki.libsdl.org/SDL2/SDL_StopTextInput SDL_StopTextInput>@ for C documentation.
 stopTextInput :: MonadIO m => m ()
 stopTextInput = Raw.stopTextInput
 
 -- | Check whether the platform has screen keyboard support.
 --
--- See @<https://wiki.libsdl.org/SDL_HasScreenKeyboardSupport SDL_HasScreenKeyboardSupport>@ for C documentation.
+-- See @<https://wiki.libsdl.org/SDL2/SDL_HasScreenKeyboardSupport SDL_HasScreenKeyboardSupport>@ for C documentation.
 hasScreenKeyboardSupport :: MonadIO m => m Bool
 hasScreenKeyboardSupport = Raw.hasScreenKeyboardSupport
 
 -- | Check whether the screen keyboard is shown for the given window.
 --
--- See @<https://wiki.libsdl.org/SDL_IsScreenKeyboardShown SDL_IsScreenKeyboardShown>@ for C documentation.
+-- See @<https://wiki.libsdl.org/SDL2/SDL_IsScreenKeyboardShown SDL_IsScreenKeyboardShown>@ for C documentation.
 isScreenKeyboardShown :: MonadIO m => Window -> m Bool
 isScreenKeyboardShown (Window w) = Raw.isScreenKeyboardShown w
 
 -- | Get a human-readable name for a scancode. If the scancode doesn't have a name this function returns the empty string.
 --
--- See @<https://wiki.libsdl.org/SDL_GetScancodeName SDL_GetScancodeName>@ for C documentation.
+-- See @<https://wiki.libsdl.org/SDL2/SDL_GetScancodeName SDL_GetScancodeName>@ for C documentation.
 getScancodeName :: MonadIO m => Scancode -> m String
 getScancodeName scancode = liftIO $ do
   name <- Raw.getScancodeName $ toNumber scancode
@@ -156,7 +156,7 @@ data Keysym = Keysym
 --
 -- This computation generates a mapping from 'Scancode' to 'Bool' - evaluating the function at specific 'Scancode's will inform you as to whether or not that key was held down when 'getKeyboardState' was called.
 --
--- See @<https://wiki.libsdl.org/SDL_GetKeyboardState SDL_GetKeyboardState>@ for C documentation.
+-- See @<https://wiki.libsdl.org/SDL2/SDL_GetKeyboardState SDL_GetKeyboardState>@ for C documentation.
 getKeyboardState :: MonadIO m => m (Scancode -> Bool)
 getKeyboardState = liftIO $ do
   alloca $ \nkeys -> do

src/SDL/Input/Mouse.hs

@@ -177,7 +177,7 @@ warpMouse WarpGlobal (P (V2 x y)) = throwIfNeg_ "SDL.Mouse.warpMouse" "SDL_WarpM
 --
 -- This 'StateVar' can be modified using '$=' and the current value retrieved with 'get'.
 --
--- See @<https://wiki.libsdl.org/SDL_ShowCursor SDL_ShowCursor>@ and @<https://wiki.libsdl.org/SDL_HideCursor SDL_HideCursor>@ for C documentation.
+-- See @<https://wiki.libsdl.org/SDL2/SDL_ShowCursor SDL_ShowCursor>@ and @<https://wiki.libsdl.org/SDL2/SDL_HideCursor SDL_HideCursor>@ for C documentation.
 cursorVisible :: StateVar Bool
 cursorVisible = makeStateVar getCursorVisible setCursorVisible
   where
@@ -249,7 +249,7 @@ instance ToNumber SystemCursor Word32 where
 --
 -- This 'StateVar' can be modified using '$=' and the current value retrieved with 'get'.
 --
--- See @<https://wiki.libsdl.org/SDL_SetCursor SDL_SetCursor>@ and @<https://wiki.libsdl.org/SDL_GetCursor SDL_GetCursor>@ for C documentation.
+-- See @<https://wiki.libsdl.org/SDL2/SDL_SetCursor SDL_SetCursor>@ and @<https://wiki.libsdl.org/SDL2/SDL_GetCursor SDL_GetCursor>@ for C documentation.
 activeCursor :: StateVar Cursor
 activeCursor = makeStateVar getCursor setCursor
   where
@@ -345,13 +345,13 @@ createCursorFrom point source = do
 
 -- | Free a cursor created with 'createCursor', 'createColorCusor' and 'createSystemCursor'.
 --
--- See @<https://wiki.libsdl.org/SDL_FreeCursor SDL_FreeCursor>@ for C documentation.
+-- See @<https://wiki.libsdl.org/SDL2/SDL_FreeCursor SDL_FreeCursor>@ for C documentation.
 freeCursor :: MonadIO m => Cursor -> m ()
 freeCursor = Raw.freeCursor . unwrapCursor
 
 -- | Create a color cursor.
 --
--- See @<https://wiki.libsdl.org/SDL_CreateColorCursor SDL_CreateColorCursor>@ for C documentation.
+-- See @<https://wiki.libsdl.org/SDL2/SDL_CreateColorCursor SDL_CreateColorCursor>@ for C documentation.
 createColorCursor :: MonadIO m
                   => Surface
                   -> Point V2 CInt -- ^ The location of the cursor hot spot
@@ -363,7 +363,7 @@ createColorCursor (Surface surfPtr _) (P (V2 hx hy)) =
 
 -- | Create system cursor.
 --
--- See @<https://wiki.libsdl.org/SDL_CreateSystemCursor SDL_CreateSystemCursor>@ for C documentation.
+-- See @<https://wiki.libsdl.org/SDL2/SDL_CreateSystemCursor SDL_CreateSystemCursor>@ for C documentation.
 createSystemCursor :: MonadIO m => SystemCursor -> m Cursor
 createSystemCursor sc =
     liftIO . fmap Cursor $

src/SDL/Power.hs

@@ -27,7 +27,7 @@ import qualified SDL.Raw as Raw
 --
 -- Throws 'SDLException' if the current power state can not be determined.
 --
--- See @<https://wiki.libsdl.org/SDL_GetPowerInfo SDL_GetPowerInfo>@ for C documentation.
+-- See @<https://wiki.libsdl.org/SDL2/SDL_GetPowerInfo SDL_GetPowerInfo>@ for C documentation.
 getPowerInfo :: (Functor m, MonadIO m) => m PowerState
 getPowerInfo =
   liftIO $