diff options
| author | Spencer Janssen <sjanssen@cse.unl.edu> | 2007-06-04 20:07:45 +0200 |
|---|---|---|
| committer | Spencer Janssen <sjanssen@cse.unl.edu> | 2007-06-04 20:07:45 +0200 |
| commit | ee57a01ad607ca3102e3d1646e971d6f153c96c5 (patch) | |
| tree | dc89df780e77a4536120de6562d1e3c974d4baaf | |
| parent | e2ca97b7ec0417f32d283428ad9b1b7ff2e06e4a (diff) | |
| download | metatile-ee57a01ad607ca3102e3d1646e971d6f153c96c5.tar metatile-ee57a01ad607ca3102e3d1646e971d6f153c96c5.zip | |
Integral implies Eq
darcs-hash:20070604180745-a5988-bbeb0e2f34a21fe9853f67440e59929a1084c76d
| -rw-r--r-- | StackSet.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/StackSet.hs b/StackSet.hs index fa800a7..bb581d2 100644 --- a/StackSet.hs +++ b/StackSet.hs @@ -186,7 +186,7 @@ new n m | n > 0 && m > 0 = StackSet n cur visi unseen M.empty -- becomes the current screen. If it is in the visible list, it becomes -- current. -- -view :: (Eq i, Eq a, Eq s, Integral i) => i -> StackSet i a s -> StackSet i a s +view :: (Eq a, Eq s, Integral i) => i -> StackSet i a s -> StackSet i a s view i s | i < 0 && i >= size s || i == tag (workspace (current s)) = s -- out of bounds or current |