diff options
| author | David Roundy <droundy@darcs.net> | 2007-08-14 03:04:22 +0200 |
|---|---|---|
| committer | David Roundy <droundy@darcs.net> | 2007-08-14 03:04:22 +0200 |
| commit | cb781eeaabdc12645dc6cbd17e612038cf69e554 (patch) | |
| tree | af89d4fc19e596e90bf59838ba44a85927f91081 /StackSet.hs | |
| parent | 9396203717bdaa4280889530602b77b07b14b35c (diff) | |
| download | metatile-cb781eeaabdc12645dc6cbd17e612038cf69e554.tar metatile-cb781eeaabdc12645dc6cbd17e612038cf69e554.zip | |
simplify code in StackSet.
darcs-hash:20070814010422-72aca-d872858268fb6550d62fad04dd331535f33a442f
Diffstat (limited to 'StackSet.hs')
| -rw-r--r-- | StackSet.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/StackSet.hs b/StackSet.hs index 5f69448..bd7a6fa 100644 --- a/StackSet.hs +++ b/StackSet.hs @@ -226,7 +226,7 @@ new _ _ = abort "non-positive argument to StackSet.new" view :: (Eq a, Eq s, Eq i) => i -> StackSet i a s sd -> StackSet i a s sd view i s - | not (elem i $ map tag $ workspaces s) + | not (i `tagMember` s) || i == tag (workspace (current s)) = s -- out of bounds or current | Just x <- L.find ((i==).tag.workspace) (visible s) |