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

Fix GHC warning: -Wtabs

Browse Source 
Related: https://github.com/xmonad/xmonad-contrib/issues/537
This commit is contained in:
slotThe 2021-05-20 17:05:03 +02:00
parent 518e96b384
commit 7ad38d4063
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
XMonad/Actions/DynamicWorkspaces.hs
View File

@ -125,11 +125,11 @@ renameWorkspace conf = workspacePrompt conf renameWorkspaceByName
renameWorkspaceByName :: String -> X () renameWorkspaceByName :: String -> X ()
renameWorkspaceByName w = do old <- gets (currentTag . windowset) renameWorkspaceByName w = do old <- gets (currentTag . windowset)
windows $ \s -> let sett wk = wk { tag = w } windows $ \s -> let sett wk = wk { tag = w }
setscr scr = scr { workspace = sett $ workspace scr } setscr scr = scr { workspace = sett $ workspace scr }
sets q = q { current = setscr $ current q } sets q = q { current = setscr $ current q }
in sets $ removeWorkspace' w s in sets $ removeWorkspace' w s
updateIndexMap old w updateIndexMap old w
where updateIndexMap oldIM newIM = do where updateIndexMap oldIM newIM = do
wmap <- XS.gets workspaceIndexMap wmap <- XS.gets workspaceIndexMap
XS.modify $ \s -> s {workspaceIndexMap = Map.map (\t -> if t == oldIM then newIM else t) wmap} XS.modify $ \s -> s {workspaceIndexMap = Map.map (\t -> if t == oldIM then newIM else t) wmap}