From c57871b836ac7e786d401c0a653a19a5e1e1cc42 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.gz
---
 Main.hs       |  8 ++++----
 Operations.hs | 12 ++++++------
 README        |  4 ++--
 StackSet.hs   |  4 ++--
 XMonad.hs     |  2 +-
 5 files changed, 15 insertions(+), 15 deletions(-)

diff --git a/Main.hs b/Main.hs
index 363ed72..01eca12 100644
--- a/Main.hs
+++ b/Main.hs
@@ -3,7 +3,7 @@
 -- Module      :  Main.hs
 -- Copyright   :  (c) Spencer Janssen 2007
 -- License     :  BSD3-style (see LICENSE)
--- 
+--
 -- Maintainer  :  sjanssen@cse.unl.edu
 -- Stability   :  unstable
 -- Portability :  not portable, uses mtl, X11, posix
@@ -30,7 +30,7 @@ import Config
 
 --
 -- The main entry point
--- 
+--
 main :: IO ()
 main = do
     dpy   <- openDisplay ""
@@ -121,7 +121,7 @@ grabKeys dpy rootw = do
 -- XCreateWindowEvent(3X11)
 -- Window manager clients normally should ignore this window if the
 -- override_redirect member is True.
--- 
+--
 
 handle :: Event -> X ()
 
@@ -172,7 +172,7 @@ handle e@(ConfigureRequestEvent {window = w}) = do
     dpy <- gets display
     ws  <- gets workspace
 
-    when (W.member w ws) $ -- already managed, reconfigure (see client:configure() 
+    when (W.member w ws) $ -- already managed, reconfigure (see client:configure()
         trace ("Reconfigure already managed window: " ++ show w)
 
     io $ configureWindow dpy (window e) (value_mask e) $ WindowChanges
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 ->
diff --git a/README b/README
index 14b7105..b19e5c6 100644
--- a/README
+++ b/README
@@ -6,7 +6,7 @@ Motivation:
     more correct window manager in fewer lines of code, using strong
     static typing. Enter Haskell.
 
-    If the aim of dwm is to fit in under 2000 lines of C, the aim of 
+    If the aim of dwm is to fit in under 2000 lines of C, the aim of
     xmonad is to fit in under 400 lines of Haskell with similar functionality.
 
 Building:
@@ -30,7 +30,7 @@ And then build with Cabal:
     runhaskell Setup.lhs build
     runhaskell Setup.lhs install
 
-Then add: 
+Then add:
 
          exec /home/dons/bin/xmonad
 
diff --git a/StackSet.hs b/StackSet.hs
index 2fc8020..bcea8c8 100644
--- a/StackSet.hs
+++ b/StackSet.hs
@@ -3,7 +3,7 @@
 -- Module      :  StackSet
 -- Copyright   :  (c) Don Stewart 2007
 -- License     :  BSD3-style (see LICENSE)
--- 
+--
 -- Maintainer  :  dons@cse.unsw.edu.au
 -- Stability   :  stable
 -- Portability :  portable, needs GHC 6.6
@@ -89,7 +89,7 @@ fromList (o,xs) = view o $ foldr (\(i,ys) s ->
 toList  :: StackSet a -> (Int,[[a]])
 toList x = (current x, map snd $ M.toList (stacks x))
 
--- | Push. Insert an element onto the top of the current stack. 
+-- | Push. Insert an element onto the top of the current stack.
 -- If the element is already in the current stack, it is moved to the top.
 -- If the element is managed on another stack, it is removed from that
 -- stack first.
diff --git a/XMonad.hs b/XMonad.hs
index c9146fe..8dc5ffb 100644
--- a/XMonad.hs
+++ b/XMonad.hs
@@ -3,7 +3,7 @@
 -- Module      :  XMonad.hs
 -- Copyright   :  (c) Spencer Janssen 2007
 -- License     :  BSD3-style (see LICENSE)
--- 
+--
 -- Maintainer  :  sjanssen@cse.unl.edu
 -- Stability   :  unstable
 -- Portability :  not portable, uses cunning newtype deriving
-- 
cgit v1.2.3