From 8c6f117de1b8986b66a81f4a616af180d420783e Mon Sep 17 00:00:00 2001
From: Joachim Fasting <joachim.fasting@gmail.com>
Date: Wed, 19 Sep 2007 23:45:26 +0200
Subject: CopyWindow.copy: remove seemingly unnecessary parameter from helper
 func.

darcs-hash:20070919214526-928c4-5ebbf4d40b047bf67c3662665d0fa1fffd1d1bb9.gz
---
 CopyWindow.hs | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

(limited to 'CopyWindow.hs')

diff --git a/CopyWindow.hs b/CopyWindow.hs
index 86bbe1d..c673fc8 100644
--- a/CopyWindow.hs
+++ b/CopyWindow.hs
@@ -56,10 +56,10 @@ import StackSet
 
 -- | copy. Copy a window to a new workspace.
 copy :: WorkspaceId -> X ()
-copy n = windows (copy' n)
-    where copy' n s = if n `tagMember` s && n /= tag (workspace (current s))
-                      then maybe s (go s) (peek s)
-                      else s
+copy n = windows copy'
+    where copy' s = if n `tagMember` s && n /= tag (workspace (current s))
+                    then maybe s (go s) (peek s)
+                    else s
           go s w = view (tag (workspace (current s))) $ insertUp' w $ view n s
           insertUp' a s = modify (Just $ Stack a [] [])
                           (\(Stack t l r) -> Just $ Stack a (L.delete a l) (L.delete a (t:r))) s
-- 
cgit v1.2.3