diff options
| author | David Roundy <droundy@darcs.net> | 2007-08-01 16:45:43 +0200 |
|---|---|---|
| committer | David Roundy <droundy@darcs.net> | 2007-08-01 16:45:43 +0200 |
| commit | 31ce9b7ef003e80dfba1b737956963a65d1374fe (patch) | |
| tree | 5ba2e282f82719603fd322346c5fd0e2daf6fea7 | |
| parent | 54b236615b914b4fb65de755a09e7bad83696cac (diff) | |
| download | XMonadContrib-31ce9b7ef003e80dfba1b737956963a65d1374fe.tar.gz XMonadContrib-31ce9b7ef003e80dfba1b737956963a65d1374fe.tar.xz XMonadContrib-31ce9b7ef003e80dfba1b737956963a65d1374fe.zip | |
fix CopyWindow to not require Integral WorkspaceId.
darcs-hash:20070801144543-72aca-8b5f3ada1e1ca5f6248079eaaee6bea195503511.gz
| -rw-r--r-- | CopyWindow.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/CopyWindow.hs b/CopyWindow.hs index 901835d..289673b 100644 --- a/CopyWindow.hs +++ b/CopyWindow.hs @@ -47,7 +47,7 @@ import StackSet copy :: WorkspaceId -> X () 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)) then maybe s go (peek s) else s |