twin/xmonad
1
0
Fork 0
mirror of https://github.com/xmonad/xmonad.git synced 2025-08-06 23:21:52 -07:00
Code Issues Packages Projects Releases Wiki Activity

StackSet.hs: align some comments

Browse Source
This commit is contained in:
Brent Yorgey
2007-10-22 16:16:01 +00:00
parent b73ac809ba
commit ec45881d4c
1 changed files with 4 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
StackSet.hs
View File

@@ -125,13 +125,13 @@ import qualified Data.Map as M (Map,insert,delete,empty)
-- --
-- * peek, -- was: peek\/peekStack -- * peek, -- was: peek\/peekStack
-- --
-- * focusUp, focusDown, -- was: rotate -- * focusUp, focusDown, -- was: rotate
-- --
-- * swapUp, swapDown -- * swapUp, swapDown
-- --
-- * focus -- was: raiseFocus -- * focus -- was: raiseFocus
-- --
-- * insertUp, -- was: insert\/push -- * insertUp, -- was: insert\/push
-- --
-- * delete, -- * delete,
-- --
@@ -157,8 +157,8 @@ import qualified Data.Map as M (Map,insert,delete,empty)
data StackSet i l a sid sd = data StackSet i l a sid sd =
StackSet { current :: !(Screen i l a sid sd) -- ^ currently focused workspace StackSet { current :: !(Screen i l a sid sd) -- ^ currently focused workspace
, visible :: [Screen i l a sid sd] -- ^ non-focused workspaces, visible in xinerama , visible :: [Screen i l a sid sd] -- ^ non-focused workspaces, visible in xinerama
, hidden :: [Workspace i l a] -- ^ workspaces not visible anywhere , hidden :: [Workspace i l a] -- ^ workspaces not visible anywhere
, floating :: M.Map a RationalRect -- ^ floating windows , floating :: M.Map a RationalRect -- ^ floating windows
} deriving (Show, Read, Eq) } deriving (Show, Read, Eq)
-- | Visible workspaces, and their Xinerama screens. -- | Visible workspaces, and their Xinerama screens.