1 files changed, 1 insertions, 2 deletions
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