diff options
| -rw-r--r-- | Operations.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/Operations.hs b/Operations.hs index fb6c788..d51b1e2 100644 --- a/Operations.hs +++ b/Operations.hs @@ -70,8 +70,8 @@ manage w = withDisplay $ \d -> do -- unmanage :: Window -> X () unmanage w = do - setWMState w 0 {-withdrawn-} windows (W.sink w . W.delete w) + setWMState w 0 {-withdrawn-} modify (\s -> s {mapped = S.delete w (mapped s), waitingUnmap = M.delete w (waitingUnmap s)}) -- | focus. focus window up or down. or swap various windows. |