fix float bug in CopyWindow.

This commit is contained in:
David Roundy
2007-10-15 16:15:29 +00:00
parent b27fcdf08b
commit a1a2f6b6c3

View File

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