From e31487b3b48021182d53c4ce55aa962ea0b6d4b9 Mon Sep 17 00:00:00 2001
From: David Roundy <droundy@darcs.net>
Date: Mon, 15 Oct 2007 18:15:29 +0200
Subject: fix float bug in CopyWindow.

darcs-hash:20071015161529-72aca-22af3affff9166a8f8e4f53f652363be5247f2a7.gz
---
 CopyWindow.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'CopyWindow.hs')

diff --git a/CopyWindow.hs b/CopyWindow.hs
index 23cadb8..e23e35b 100644
--- a/CopyWindow.hs
+++ b/CopyWindow.hs
@@ -76,4 +76,4 @@ kill1 = do ss <- gets windowset
            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 = modify Nothing (filter (/= w))
-- 
cgit v1.2.3