diff options
| author | Joachim Fasting <joachim.fasting@gmail.com> | 2007-09-19 23:45:56 +0200 |
|---|---|---|
| committer | Joachim Fasting <joachim.fasting@gmail.com> | 2007-09-19 23:45:56 +0200 |
| commit | d730d8f8f5122feb3bdde12cff090f4608620d10 (patch) | |
| tree | 686ebe3e1c36eae4bd178f352b7764f8966ed591 /CopyWindow.hs | |
| parent | 8c6f117de1b8986b66a81f4a616af180d420783e (diff) | |
| download | XMonadContrib-d730d8f8f5122feb3bdde12cff090f4608620d10.tar.gz XMonadContrib-d730d8f8f5122feb3bdde12cff090f4608620d10.tar.xz XMonadContrib-d730d8f8f5122feb3bdde12cff090f4608620d10.zip | |
CopyWindow.hs: -Wall police.
darcs-hash:20070919214556-928c4-3c32eaedada1054bb25270849ba57bbf8a3960ed.gz
Diffstat (limited to '')
| -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)) |