REF remove redundant io
This commit is contained in:
parent
96108abc43
commit
a468785742
|
@ -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 ""
|
||||||
|
|
Loading…
Reference in New Issue