From 8a61f217d69bb13612c6dc6d0c6359dcad1e13e0 Mon Sep 17 00:00:00 2001
From: Alec Berryman <alec@thened.net>
Date: Sun, 1 Apr 2007 16:45:39 +0200
Subject: Remove trailing spaces, no content changed

darcs-hash:20070401144539-39448-1903870c5ef75cc918a8ea3153c5b154feb4e644
---
 Operations.hs | 12 ++++++------
 1 file changed, 6 insertions(+), 6 deletions(-)

(limited to 'Operations.hs')

diff --git a/Operations.hs b/Operations.hs
index bd73fc4..ad8eaf0 100644
--- a/Operations.hs
+++ b/Operations.hs
@@ -40,7 +40,7 @@ refresh = do
             fullWindow w = move w sc >> io (raiseWindow d w)
 
             -- runRects draws the windows, figuring out their rectangles.
-            -- The code here is for a horizontal split, and tr is possibly 
+            -- The code here is for a horizontal split, and tr is possibly
             -- used to convert to the vertical case.  The comments
             -- speak in terms of the horizontal case.
             runRects :: Rectangle -> (Rectangle -> Rectangle)
@@ -58,7 +58,7 @@ refresh = do
                   ns = map (/ sum ds) ds -- normalized ratios for rhs.
 
               -- Normalize dispositions while we have the opportunity.
-              -- This is bad.  Rational numbers might space leak each 
+              -- This is bad.  Rational numbers might space leak each
               -- time we make an adjustment.  Floating point numbers are
               -- better here.  I am being paranoid.
               zipWithM_ (\ratio a -> disposeW a (dfix ratio)) ns s
@@ -103,7 +103,7 @@ refresh = do
     whenJust (W.peek ws) setFocus
 
 -- | switchLayout.  Switch to another layout scheme.  Switches the
--- current workspace. 
+-- current workspace.
 switchLayout :: X ()
 switchLayout = layout $ \fl -> fl { layoutType = rot (layoutType fl) }
 
@@ -111,7 +111,7 @@ switchLayout = layout $ \fl -> fl { layoutType = rot (layoutType fl) }
 changeVert :: Rational -> X ()
 changeVert delta = do
   l <- gets (layoutType . currentDesc)
-  case l of 
+  case l of
     Vert -> layout $ \d -> d {vertTileFrac = min 1 $
                                              max 0 $
                                              vertTileFrac d + delta}
@@ -127,7 +127,7 @@ changeHorz delta = do
                                             horzTileFrac d + delta}
    _    -> return ()
 
--- | changeSize.  Changes the size of the window, except in Full mode, with the 
+-- | changeSize.  Changes the size of the window, except in Full mode, with the
 -- size remaining above the given mini-mum.
 changeSize :: Rational -> Rational -> X ()
 changeSize delta mini = do
@@ -143,7 +143,7 @@ changeSize delta mini = do
     refresh
 
 -- | layout. Modify the current workspace's layout with a pure
--- function and refresh. 
+-- function and refresh.
 layout :: (LayoutDesc -> LayoutDesc) -> X ()
 layout f = do
     modify $ \s ->
-- 
cgit v1.2.3