From d730d8f8f5122feb3bdde12cff090f4608620d10 Mon Sep 17 00:00:00 2001
From: Joachim Fasting <joachim.fasting@gmail.com>
Date: Wed, 19 Sep 2007 23:45:56 +0200
Subject: CopyWindow.hs: -Wall police.
darcs-hash:20070919214556-928c4-3c32eaedada1054bb25270849ba57bbf8a3960ed.gz
---
CopyWindow.hs | 6 +++---
1 file 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))
--
cgit v1.2.3