twin/xmonad-contrib
1
0
Fork 0
mirror of https://github.com/xmonad/xmonad-contrib.git synced 2025-07-27 10:11:52 -07:00
Code Issues Packages Projects Releases Wiki Activity

X.L.G.Helpers: replace (deprecated) send with sendMessageB as we

Browse Source 
may now need the refresh it can perform.
This commit is contained in:
L. S. Leary
2018-08-01 06:45:30 +12:00
parent 8ea584cdb9
commit dba402aba4
1 changed files with 2 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
XMonad/Layout/Groups/Helpers.hs
View File

@@ -45,7 +45,7 @@ import qualified XMonad.StackSet as W
import qualified XMonad.Layout.Groups as G import qualified XMonad.Layout.Groups as G
import XMonad.Actions.MessageFeedback import XMonad.Actions.MessageFeedback (sendMessageB)
import Control.Monad (unless) import Control.Monad (unless)
import qualified Data.Map as M import qualified Data.Map as M
@@ -92,7 +92,7 @@ alt :: G.ModifySpec -> (WindowSet -> WindowSet) -> X ()
alt f g = alt2 (G.Modify f) $ windows g alt f g = alt2 (G.Modify f) $ windows g
alt2 :: G.GroupsMessage -> X () -> X () alt2 :: G.GroupsMessage -> X () -> X ()
alt2 m x = do b <- send m alt2 m x = do b <- sendMessageB m
unless b x unless b x
-- | Swap the focused window with the previous one -- | Swap the focused window with the previous one