From 93dc8502e479479c31c6bbfc031dae15c3e8b310 Mon Sep 17 00:00:00 2001 From: Andrea Rossato Date: Sat, 13 Oct 2007 11:01:22 +0200 Subject: CopyWindow.hs: type signature for copy darcs-hash:20071013090122-32816-93b90523b2609d2bf19066db80ae323a0231f692.gz --- CopyWindow.hs | 1 + 1 file changed, 1 insertion(+) (limited to 'CopyWindow.hs') diff --git a/CopyWindow.hs b/CopyWindow.hs index 285b042..23cadb8 100644 --- a/CopyWindow.hs +++ b/CopyWindow.hs @@ -55,6 +55,7 @@ import StackSet -- %keybindlist , (f, m) <- [(view, 0), (shift, shiftMask), (copy, shiftMask .|. controlMask)]] -- | copy. Copy a window to a new workspace. +copy :: WorkspaceId -> WindowSet -> WindowSet copy n = copy' where copy' s = if n `tagMember` s && n /= tag (workspace (current s)) then maybe s (go s) (peek s) -- cgit v1.2.3