From cb781eeaabdc12645dc6cbd17e612038cf69e554 Mon Sep 17 00:00:00 2001
From: David Roundy <droundy@darcs.net>
Date: Tue, 14 Aug 2007 03:04:22 +0200
Subject: simplify code in StackSet.

darcs-hash:20070814010422-72aca-d872858268fb6550d62fad04dd331535f33a442f
---
 StackSet.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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