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

Revert "generalized signature of updateLayoutsBy"

Browse Source 
This reverts commit eb48bb4aef638ba6958a4489a282c274e9779767.
This commit is contained in:
Tomas Janousek 2021-09-04 17:54:06 +01:00
parent 5c7e61def2
commit d66e71d464
1 changed files with 1 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
src/XMonad/Operations.hs
View File

@ -455,8 +455,7 @@ filterMessageWithNoRefresh p a = updateLayoutsBy $ \ wrk ->
else pure Nothing
-- | Update the layouts of some workspaces.
updateLayoutsBy :: MonadState XState m
=> (WindowSpace -> m (Maybe (Layout Window))) -> m ()
updateLayoutsBy :: (WindowSpace -> X (Maybe (Layout Window))) -> X ()
updateLayoutsBy f = runOnWorkspaces' $ \ wrk ->
maybe wrk (\ l' -> wrk{ W.layout = l' }) <$> f wrk