From 31ce9b7ef003e80dfba1b737956963a65d1374fe Mon Sep 17 00:00:00 2001
From: David Roundy <droundy@darcs.net>
Date: Wed, 1 Aug 2007 16:45:43 +0200
Subject: fix CopyWindow to not require Integral WorkspaceId.

darcs-hash:20070801144543-72aca-8b5f3ada1e1ca5f6248079eaaee6bea195503511.gz
---
 CopyWindow.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'CopyWindow.hs')

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
-- 
cgit v1.2.3