diff options
| -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 |