ndwarshuis
/
xmonad-config
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

REF remove redundant io

This commit is contained in:
Nathan Dwarshuis 2021-11-20 13:12:58 -05:00
parent 96108abc43
commit a468785742
1 changed files with 1 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
lib/XMonad/Internal/Concurrent/DynamicWorkspaces.hs
View File

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