From dcbfe603b51d8da4667aa295e080d36ae727f0e7 Mon Sep 17 00:00:00 2001
From: David Roundy <droundy@darcs.net>
Date: Fri, 5 Oct 2007 14:37:46 +0000
Subject: [PATCH] fix problem found by Heffalump in CopyWindow.

---
 CopyWindow.hs | 3 +--
 1 file changed, 1 insertion(+), 2 deletions(-)

diff --git a/CopyWindow.hs b/CopyWindow.hs
index 7e411586..285b042e 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