From f4d4012813aa57ca7b42a094fee0c7d361116e93 Mon Sep 17 00:00:00 2001
From: Brent Yorgey <byorgey@gmail.com>
Date: Mon, 22 Oct 2007 18:16:01 +0200
Subject: StackSet.hs: align some comments
darcs-hash:20071022161601-bd4d7-af9280b6ae3c27040d865b9fe3ab144d05beac48.gz
---
StackSet.hs | 8 ++++----
1 file changed, 4 insertions(+), 4 deletions(-)
diff --git a/StackSet.hs b/StackSet.hs
index 97ac573..f607764 100644
--- a/StackSet.hs
+++ b/StackSet.hs
@@ -125,13 +125,13 @@ import qualified Data.Map as M (Map,insert,delete,empty)
--
-- * peek, -- was: peek\/peekStack
--
--- * focusUp, focusDown, -- was: rotate
+-- * focusUp, focusDown, -- was: rotate
--
-- * swapUp, swapDown
--
-- * focus -- was: raiseFocus
--
--- * insertUp, -- was: insert\/push
+-- * insertUp, -- was: insert\/push
--
-- * delete,
--
@@ -157,8 +157,8 @@ import qualified Data.Map as M (Map,insert,delete,empty)
data StackSet i l a sid sd =
StackSet { current :: !(Screen i l a sid sd) -- ^ currently focused workspace
, visible :: [Screen i l a sid sd] -- ^ non-focused workspaces, visible in xinerama
- , hidden :: [Workspace i l a] -- ^ workspaces not visible anywhere
- , floating :: M.Map a RationalRect -- ^ floating windows
+ , hidden :: [Workspace i l a] -- ^ workspaces not visible anywhere
+ , floating :: M.Map a RationalRect -- ^ floating windows
} deriving (Show, Read, Eq)
-- | Visible workspaces, and their Xinerama screens.
--
cgit v1.2.3