From cb713dde064fc505a191cd39c3714fc2dd5e7f43 Mon Sep 17 00:00:00 2001 From: Don Stewart Date: Mon, 30 Apr 2007 03:59:27 +0200 Subject: don't need 'size' operation on StackSet darcs-hash:20070430015927-9c5c1-9fdb237b91b517b77ab4a63c6675afa1ca759fe6 --- StackSet.hs | 11 ++++++----- 1 file changed, 6 insertions(+), 5 deletions(-) (limited to 'StackSet.hs') diff --git a/StackSet.hs b/StackSet.hs index d3d08cb..9666d6a 100644 --- a/StackSet.hs +++ b/StackSet.hs @@ -25,7 +25,7 @@ module StackSet ( screen, peekStack, index, empty, peek, push, delete, member, raiseFocus, rotate, promote, shift, view, workspace, insert, - size, visibleWorkspaces, swap {- helper -} + visibleWorkspaces, swap {- helper -} ) where import Data.Maybe @@ -51,8 +51,9 @@ data StackSet i j a = ------------------------------------------------------------------------ --- | /O(n)/. Create a new empty stacks of size 'n', indexed from 0, with 'm' --- screens. (also indexed from 0) The 0-indexed stack will be current. +-- | /O(n)/. Create a new stackset, of empty stacks, of size 'n', +-- indexed from 0, with 'm' screens. (also indexed from 0) The 0-indexed +-- stack will be current. empty :: (Integral i, Integral j) => Int -> Int -> StackSet i j a empty n m = StackSet { current = 0 , screen2ws = wsScrs2Works @@ -74,8 +75,8 @@ member a w = M.member a (cache w) -- lookup x w = M.lookup x (cache w) -- | /O(n)/. Number of stacks -size :: StackSet i j a -> Int -size = M.size . stacks +-- size :: StackSet i j a -> Int +-- size = M.size . stacks ------------------------------------------------------------------------ -- cgit v1.2.3