From 595021f9a0b70483a7e26337bab8b2da68cd4757 Mon Sep 17 00:00:00 2001
From: Adam Vogt <vogt.adam@gmail.com>
Date: Sun, 5 Jul 2009 22:12:05 +0200
Subject: Remove trailing whitespace from many modules

Ignore-this: 1e28ff0974578d329bd3d593c1a5125e

darcs-hash:20090705201205-1499c-581bd0bb43ab6096eccded6edbd54a7a2007b0d9.gz
---
 XMonad/Actions/CycleSelectedLayouts.hs |  2 +-
 XMonad/Actions/CycleWindows.hs         |  4 ++--
 XMonad/Actions/GridSelect.hs           | 10 +++++-----
 XMonad/Actions/MessageFeedback.hs      |  4 ++--
 XMonad/Actions/WindowGo.hs             |  2 +-
 5 files changed, 11 insertions(+), 11 deletions(-)

(limited to 'XMonad/Actions')

diff --git a/XMonad/Actions/CycleSelectedLayouts.hs b/XMonad/Actions/CycleSelectedLayouts.hs
index 63f07ca..e10f930 100644
--- a/XMonad/Actions/CycleSelectedLayouts.hs
+++ b/XMonad/Actions/CycleSelectedLayouts.hs
@@ -25,7 +25,7 @@ import qualified XMonad.StackSet as S
 
 -- $usage
 -- You can use this module with the following in your @~\/.xmonad\/xmonad.hs@:
--- 
+--
 -- > import XMonad hiding ((|||))
 -- > import XMonad.Layout.LayoutCombinators ((|||))
 -- > import XMonad.Actions.CycleSelectedLayouts
diff --git a/XMonad/Actions/CycleWindows.hs b/XMonad/Actions/CycleWindows.hs
index 14cda8d..0f614b8 100644
--- a/XMonad/Actions/CycleWindows.hs
+++ b/XMonad/Actions/CycleWindows.hs
@@ -18,7 +18,7 @@
 -- * Cycle windows through the focused position.
 --
 -- * Cycle unfocused windows.
--- 
+--
 -- These bindings are especially useful with layouts that hide some of
 -- the windows in the stack, such as Full, "XMonad.Layout.TwoPane" or
 -- "XMonad.Layout.Mosaic" with three or four panes. See also
@@ -70,7 +70,7 @@ import XMonad.Actions.RotSlaves
 --
 -- Also, if you use focus follows mouse, you will want to read the section
 -- on updating the mouse pointer below.  For detailed instructions on
--- editing your key bindings, see "XMonad.Doc.Extending#Editing_key_bindings". 
+-- editing your key bindings, see "XMonad.Doc.Extending#Editing_key_bindings".
 {- $pointer
 With FocusFollowsMouse == True, the focus is updated after binding
 actions, possibly focusing a window you didn't intend to focus. Most
diff --git a/XMonad/Actions/GridSelect.hs b/XMonad/Actions/GridSelect.hs
index 064d041..ffde014 100644
--- a/XMonad/Actions/GridSelect.hs
+++ b/XMonad/Actions/GridSelect.hs
@@ -230,7 +230,7 @@ hsv2rgb (h,s,v) =
 
 -- | Default colorizer for Strings
 defaultColorizer :: String -> Bool -> X (String, String)
-defaultColorizer s active = 
+defaultColorizer s active =
     let seed x = toInteger (sum $ map ((*x).fromEnum) s) :: Integer
         (r,g,b) = hsv2rgb ((seed 83) `mod` 360,
                            (fromInteger ((seed 191) `mod` 1000))/2500+0.4,
@@ -254,17 +254,17 @@ colorRangeFromClassName :: (Word8, Word8, Word8) -- ^ Beginning of the color ran
                         -> (Word8, Word8, Word8) -- ^ Inactive text color
                         -> (Word8, Word8, Word8) -- ^ Active text color
                         -> Window -> Bool -> X (String, String)
-colorRangeFromClassName startC endC activeC inactiveT activeT w active = 
+colorRangeFromClassName startC endC activeC inactiveT activeT w active =
     do classname <- runQuery className w
-       if active 
+       if active
          then return (rgbToHex activeC, rgbToHex activeT)
-         else return (rgbToHex $ mix startC endC 
+         else return (rgbToHex $ mix startC endC
                   $ stringToRatio classname, rgbToHex inactiveT)
     where rgbToHex :: (Word8, Word8, Word8) -> String
           rgbToHex (r, g, b) = '#':twodigitHex r
                                ++twodigitHex g++twodigitHex b
 
--- | Creates a mix of two colors according to a ratio 
+-- | Creates a mix of two colors according to a ratio
 -- (1 -> first color, 0 -> second color).
 mix :: (Word8, Word8, Word8) -> (Word8, Word8, Word8)
         -> Double -> (Word8, Word8, Word8)
diff --git a/XMonad/Actions/MessageFeedback.hs b/XMonad/Actions/MessageFeedback.hs
index c1570c7..343618f 100644
--- a/XMonad/Actions/MessageFeedback.hs
+++ b/XMonad/Actions/MessageFeedback.hs
@@ -52,8 +52,8 @@ import Control.Applicative ((<$>))
 --
 -- is mis-typed. For this reason, this module provides alternatives (ending with
 -- an underscore, e.g. tryMessage_) that discard their result and return an @X ()@.
--- For example, to correct the previous example: 
--- 
+-- For example, to correct the previous example:
+--
 -- > ((modKey, xK_Left), tryMessage_ Shrink (MoveLeft 50))
 --
 
diff --git a/XMonad/Actions/WindowGo.hs b/XMonad/Actions/WindowGo.hs
index a437748..c1506ab 100644
--- a/XMonad/Actions/WindowGo.hs
+++ b/XMonad/Actions/WindowGo.hs
@@ -178,7 +178,7 @@ raiseMaster raisef thatUserQuery = raiseAndDo raisef thatUserQuery (\_ -> window
 {- |  If the window is found the window is focused and set to master
       otherwise, action is run.
 
-      > runOrRaiseMaster \"firefox\" (className =? \"Firefox\")) 
+      > runOrRaiseMaster \"firefox\" (className =? \"Firefox\"))
   -}
 runOrRaiseMaster :: String -> Query Bool -> X ()
 runOrRaiseMaster run query = runOrRaiseAndDo run query (\_ -> windows W.swapMaster)
-- 
cgit v1.2.3