REF remove redundant io

lib/XMonad/Internal/Concurrent/DynamicWorkspaces.hs

@@ -57,6 +57,7 @@ import           XMonad.Core
     ( ManageHook
     , WorkspaceId
     , X
+    , io
     , withWindowSet
     )
 import           XMonad.Hooks.ManageHelpers               (MaybeManageHook)
@@ -107,9 +108,6 @@ instance Applicative W where
 runW :: WConf -> W a -> IO a
 runW c (W a) = runReaderT a c
 
-io :: MonadIO m => IO a -> m a
-io = liftIO
-
 runWorkspaceMon :: [DynWorkspace] -> IO ()
 runWorkspaceMon dws = do
   dpy <- openDisplay ""