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 a -> Window -> X (Maybe (HiddenWindows a))
hideWindowMsg (HiddenWindows hidden) win = do hideWindowMsg (HiddenWindows hidden) win = do
modify (\s -> s { windowset = W.delete' win $ windowset s }) modifyWindowSet $ W.delete' win
return . Just . HiddenWindows $ hidden ++ [win] return . Just . HiddenWindows $ hidden ++ [win]
-------------------------------------------------------------------------------- --------------------------------------------------------------------------------