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(-)

(limited to 'CopyWindow.hs')

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