summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorDavid Roundy <droundy@darcs.net>2007-08-14 03:04:22 +0200
committerDavid Roundy <droundy@darcs.net>2007-08-14 03:04:22 +0200
commitcb781eeaabdc12645dc6cbd17e612038cf69e554 (patch)
treeaf89d4fc19e596e90bf59838ba44a85927f91081
parent9396203717bdaa4280889530602b77b07b14b35c (diff)
downloadmetatile-cb781eeaabdc12645dc6cbd17e612038cf69e554.tar
metatile-cb781eeaabdc12645dc6cbd17e612038cf69e554.zip
simplify code in StackSet.
darcs-hash:20070814010422-72aca-d872858268fb6550d62fad04dd331535f33a442f
-rw-r--r--StackSet.hs2
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)