diff --git a/lib/XMonad/Internal/Concurrent/DynamicWorkspaces.hs b/lib/XMonad/Internal/Concurrent/DynamicWorkspaces.hs
index ccc5e0e..b27d90b 100644
--- a/lib/XMonad/Internal/Concurrent/DynamicWorkspaces.hs
+++ b/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 ""