twin/xmonad
1
0
Fork 0
mirror of https://github.com/xmonad/xmonad.git synced 2025-08-10 17:51:51 -07:00
Code Issues Packages Projects Releases Wiki Activity

don't need 'size' operation on StackSet

Browse Source
This commit is contained in:
Don Stewart
2007-04-30 01:59:27 +00:00
parent 5386ab0094
commit a839238483
1 changed files with 6 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files

11
StackSet.hs
View File

@@ -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
------------------------------------------------------------------------