From a468785742261ecc589552eb3925caf204f86071 Mon Sep 17 00:00:00 2001
From: ndwarshuis <ndwar@yavin4.ch>
Date: Sat, 20 Nov 2021 13:12:58 -0500
Subject: [PATCH] REF remove redundant io

---
 lib/XMonad/Internal/Concurrent/DynamicWorkspaces.hs | 4 +---
 1 file changed, 1 insertion(+), 3 deletions(-)

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 ""