twin/xmonad-contrib
1
0
Fork 0
mirror of https://github.com/xmonad/xmonad-contrib.git synced 2025-08-06 06:51:55 -07:00
Code Issues Packages Projects Releases Wiki Activity

CopyWindow.hs: -Wall police.

Browse Source
This commit is contained in:
Joachim Fasting
2007-09-19 21:45:56 +00:00
parent d557e5f382
commit 4bde5e30b6
1 changed files with 3 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
CopyWindow.hs
View File

@@ -73,7 +73,7 @@ copy n = windows copy'
-- --
kill1 :: X () kill1 :: X ()
kill1 = do ss <- gets windowset kill1 = do ss <- gets windowset
whenJust (peek ss) $ \w -> if member w $ delete' w ss whenJust (peek ss) $ \w -> if member w $ delete'' w ss
then windows $ delete' w then windows $ delete'' w
else kill else kill
where delete' w = sink w . modify Nothing (filter (/= w)) where delete'' w = sink w . modify Nothing (filter (/= w))