twin/xmonad-contrib
1
0
Fork 0
mirror of https://github.com/xmonad/xmonad-contrib.git synced 2025-08-04 14:11:54 -07:00
Code Issues Packages Projects Releases Wiki Activity

fix CopyWindow to not require Integral WorkspaceId.

Browse Source
This commit is contained in:
David Roundy
2007-08-01 14:45:43 +00:00
parent 850462ad43
commit 32067a9525
1 changed files with 1 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
CopyWindow.hs
View File

@@ -47,7 +47,7 @@ import StackSet
copy :: WorkspaceId -> X () copy :: WorkspaceId -> X ()
copy n = windows (copy' n) copy n = windows (copy' n)
copy' :: (Ord a, Eq s, Integral i) => i -> StackSet i a s sd -> StackSet i a s sd copy' :: (Ord a, Eq s, Eq i) => i -> StackSet i a s sd -> StackSet i a s sd
copy' n s = if n `tagMember` s && n /= tag (workspace (current s)) copy' n s = if n `tagMember` s && n /= tag (workspace (current s))
then maybe s go (peek s) then maybe s go (peek s)
else s else s