From 6ee3d30ce497d673bdc25592b846c14b4b660a17 Mon Sep 17 00:00:00 2001
From: David Roundy <droundy@darcs.net>
Date: Fri, 5 Oct 2007 16:37:46 +0200
Subject: fix problem found by Heffalump in CopyWindow.

darcs-hash:20071005143746-72aca-4223b90af116585d160e0245eafbdf6683f99d6a.gz
---
 CopyWindow.hs | 3 +--
 1 file changed, 1 insertion(+), 2 deletions(-)

(limited to 'CopyWindow.hs')

diff --git a/CopyWindow.hs b/CopyWindow.hs
index 7e41158..285b042 100644
--- a/CopyWindow.hs
+++ b/CopyWindow.hs
@@ -55,8 +55,7 @@ import StackSet
 -- %keybindlist     , (f, m) <- [(view, 0), (shift, shiftMask), (copy, shiftMask .|. controlMask)]]
 
 -- | copy. Copy a window to a new workspace.
-copy :: WorkspaceId -> X ()
-copy n = windows copy'
+copy n = copy'
     where copy' s = if n `tagMember` s && n /= tag (workspace (current s))
                     then maybe s (go s) (peek s)
                     else s
-- 
cgit v1.2.3