From dba402aba46147d3d88c9a7fa1fad6e3b554bdfd Mon Sep 17 00:00:00 2001 From: "L. S. Leary" Date: Wed, 1 Aug 2018 06:45:30 +1200 Subject: [PATCH] `X.L.G.Helpers`: replace (deprecated) `send` with `sendMessageB` as we may now need the refresh it can perform. --- XMonad/Layout/Groups/Helpers.hs | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/XMonad/Layout/Groups/Helpers.hs b/XMonad/Layout/Groups/Helpers.hs index baf42817..c77f1580 100644 --- a/XMonad/Layout/Groups/Helpers.hs +++ b/XMonad/Layout/Groups/Helpers.hs @@ -45,7 +45,7 @@ import qualified XMonad.StackSet as W import qualified XMonad.Layout.Groups as G -import XMonad.Actions.MessageFeedback +import XMonad.Actions.MessageFeedback (sendMessageB) import Control.Monad (unless) 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 alt2 :: G.GroupsMessage -> X () -> X () -alt2 m x = do b <- send m +alt2 m x = do b <- sendMessageB m unless b x -- | Swap the focused window with the previous one