diff options
-rw-r--r-- | CopyWindow.hs | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/CopyWindow.hs b/CopyWindow.hs index c673fc8..7e41158 100644 --- a/CopyWindow.hs +++ b/CopyWindow.hs @@ -73,7 +73,7 @@ copy n = windows copy' -- kill1 :: X () kill1 = do ss <- gets windowset - whenJust (peek ss) $ \w -> if member w $ delete' w ss - then windows $ delete' w + whenJust (peek ss) $ \w -> if member w $ delete'' w ss + then windows $ delete'' w else kill - where delete' w = sink w . modify Nothing (filter (/= w)) + where delete'' w = sink w . modify Nothing (filter (/= w)) |