whitespace only

darcs-hash:20070605000723-9c5c1-f05c7c0ca57a21e02137e595a061f01db7d2442a

1 files changed, 7 insertions, 8 deletions

diff --git a/StackSet.hs b/StackSet.hs
index e6af069..34e6b10 100644
--- a/StackSet.hs
+++ b/StackSet.hs
@@ -271,21 +271,18 @@ index = with [] integrate
 -- the current stack.
 -- 
 focusUp, focusDown, swapUp, swapDown :: StackSet i a s -> StackSet i a s
-focusUp = modify Empty focusUp'
-
+focusUp   = modify Empty focusUp'
 focusDown = modify Empty (reverseStack . focusUp' . reverseStack)
 
-swapUp = modify Empty swapUp'
-
-swapDown = modify Empty (reverseStack . swapUp' . reverseStack)
+swapUp    = modify Empty swapUp'
+swapDown  = modify Empty (reverseStack . swapUp' . reverseStack)
 
 focusUp', swapUp' :: Stack a -> Stack a
-
 focusUp' (Node t (l:ls) rs) = Node l ls (t:rs)
 focusUp' (Node t []     rs) = Node x xs [] where (x:xs) = reverse (t:rs)
 
-swapUp' (Node t (l:ls) rs) = Node t ls (l:rs)
-swapUp' (Node t []     rs) = Node t (reverse rs) []
+swapUp'  (Node t (l:ls) rs) = Node t ls (l:rs)
+swapUp'  (Node t []     rs) = Node t (reverse rs) []
 
 -- reverse a stack: up becomes down and down becomes up.
 reverseStack :: Stack a -> Stack a
@@ -376,6 +373,8 @@ delete w s | Just w == peek s = remove s -- common case.
         Node _ []     []     -> Empty
       else c { up = w `L.delete` up c, down = w `L.delete` down c }
 
+------------------------------------------------------------------------
+
 -- | Given a window, and its preferred rectangle, set it as floating
 -- A floating window should already be managed by the StackSet.
 float :: Ord a => a -> RationalRect -> StackSet i a s -> StackSet i a s