From 7ad38d40632f496dafe77a79ad96e169d82f6f03 Mon Sep 17 00:00:00 2001 From: slotThe Date: Thu, 20 May 2021 17:05:03 +0200 Subject: [PATCH] Fix GHC warning: -Wtabs Related: https://github.com/xmonad/xmonad-contrib/issues/537 --- XMonad/Actions/DynamicWorkspaces.hs | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/XMonad/Actions/DynamicWorkspaces.hs b/XMonad/Actions/DynamicWorkspaces.hs index b2610053..d88e309b 100644 --- a/XMonad/Actions/DynamicWorkspaces.hs +++ b/XMonad/Actions/DynamicWorkspaces.hs @@ -125,11 +125,11 @@ renameWorkspace conf = workspacePrompt conf renameWorkspaceByName renameWorkspaceByName :: String -> X () renameWorkspaceByName w = do old <- gets (currentTag . windowset) - windows $ \s -> let sett wk = wk { tag = w } - setscr scr = scr { workspace = sett $ workspace scr } - sets q = q { current = setscr $ current q } + windows $ \s -> let sett wk = wk { tag = w } + setscr scr = scr { workspace = sett $ workspace scr } + sets q = q { current = setscr $ current q } in sets $ removeWorkspace' w s - updateIndexMap old w + updateIndexMap old w where updateIndexMap oldIM newIM = do wmap <- XS.gets workspaceIndexMap XS.modify $ \s -> s {workspaceIndexMap = Map.map (\t -> if t == oldIM then newIM else t) wmap}