X.L.Hidden: use the modifyWindowSet function

This commit is contained in:
mislavzanic 2024-02-12 10:58:48 +01:00
parent a84cec9b2d
commit dda929dfc5

View File

@ -118,7 +118,7 @@ popHiddenWindow = sendMessage . PopSpecificHiddenWindow
--------------------------------------------------------------------------------
hideWindowMsg :: HiddenWindows a -> Window -> X (Maybe (HiddenWindows a))
hideWindowMsg (HiddenWindows hidden) win = do
modify (\s -> s { windowset = W.delete' win $ windowset s })
modifyWindowSet $ W.delete' win
return . Just . HiddenWindows $ hidden ++ [win]
--------------------------------------------------------------------------------