Remove trailing whitespace from many modules

Ignore-this: 1e28ff0974578d329bd3d593c1a5125e

darcs-hash:20090705201205-1499c-581bd0bb43ab6096eccded6edbd54a7a2007b0d9.gz

5 files changed, 12 insertions, 12 deletions

diff --git a/XMonad/Config/Droundy.hs b/XMonad/Config/Droundy.hs
index 6f63688..0f324c1 100644
--- a/XMonad/Config/Droundy.hs
+++ b/XMonad/Config/Droundy.hs
@@ -95,7 +95,7 @@ keys x = M.fromList $
     , ((modMask x .|. controlMask .|. shiftMask, xK_Left), sendMessage $ Move L)
     , ((modMask x .|. controlMask .|. shiftMask, xK_Up), sendMessage $ Move U)
     , ((modMask x .|. controlMask .|. shiftMask, xK_Down), sendMessage $ Move D)
- 
+
     , ((0, xK_F2  ), spawn "gnome-terminal") -- %! Launch gnome-terminal
     , ((0, xK_F3  ), shellPrompt myXPConfig) -- %! Launch program
     , ((0, xK_F11   ), spawn "ksnapshot") -- %! Take snapshot
@@ -112,7 +112,7 @@ keys x = M.fromList $
     , ((modMask x, xK_space), sendMessage Toggle)
 
     ]
- 
+
     ++
     zip (zip (repeat $ modMask x) [xK_F1..xK_F12]) (map (withNthWorkspace W.greedyView) [0..])
     ++
@@ -143,12 +143,12 @@ config = defaultConfig
 mytab = tabbed CustomShrink defaultTheme
 
 instance Shrinker CustomShrink where
-    shrinkIt shr s | Just s' <- dropFromHead " " s = shrinkIt shr s' 
-    shrinkIt shr s | Just s' <- dropFromTail " " s = shrinkIt shr s' 
-    shrinkIt shr s | Just s' <- dropFromTail "- Iceweasel" s = shrinkIt shr s' 
-    shrinkIt shr s | Just s' <- dropFromTail "- KPDF" s = shrinkIt shr s' 
-    shrinkIt shr s | Just s' <- dropFromHead "file://" s = shrinkIt shr s' 
-    shrinkIt shr s | Just s' <- dropFromHead "http://" s = shrinkIt shr s' 
+    shrinkIt shr s | Just s' <- dropFromHead " " s = shrinkIt shr s'
+    shrinkIt shr s | Just s' <- dropFromTail " " s = shrinkIt shr s'
+    shrinkIt shr s | Just s' <- dropFromTail "- Iceweasel" s = shrinkIt shr s'
+    shrinkIt shr s | Just s' <- dropFromTail "- KPDF" s = shrinkIt shr s'
+    shrinkIt shr s | Just s' <- dropFromHead "file://" s = shrinkIt shr s'
+    shrinkIt shr s | Just s' <- dropFromHead "http://" s = shrinkIt shr s'
     shrinkIt _ s | n > 9 = s : map cut [2..(halfn-3)] ++ shrinkIt shrinkText s
                  where n = length s
                        halfn = n `div` 2
diff --git a/XMonad/Config/Gnome.hs b/XMonad/Config/Gnome.hs
index fff0d81..abb73f0 100644
--- a/XMonad/Config/Gnome.hs
+++ b/XMonad/Config/Gnome.hs
@@ -30,7 +30,7 @@ import qualified Data.Map as M
 -- > import XMonad.Config.Gnome
 -- >
 -- > main = xmonad gnomeConfig
--- 
+--
 
 gnomeConfig = desktopConfig
     { terminal = "gnome-terminal"
diff --git a/XMonad/Config/Kde.hs b/XMonad/Config/Kde.hs
index 3a69f16..374c647 100644
--- a/XMonad/Config/Kde.hs
+++ b/XMonad/Config/Kde.hs
@@ -32,7 +32,7 @@ import qualified Data.Map as M
 -- > main = xmonad kdeConfig
 --
 -- For KDE 4, replace 'kdeConfig' with 'kde4Config'
--- 
+--
 
 kdeConfig = desktopConfig
     { terminal = "konsole"
diff --git a/XMonad/Config/Monad.hs b/XMonad/Config/Monad.hs
index db29097..4294049 100644
--- a/XMonad/Config/Monad.hs
+++ b/XMonad/Config/Monad.hs
@@ -38,7 +38,7 @@ layout = fromSetGet (\x c -> c { layoutHook = x }) layoutHook
 terminal = fromSetGet (\x c -> c { X.terminal = x }) X.terminal
 keys = fromSetGet (\x c -> c { X.keys = x }) X.keys
 
-set :: Accessor (XConfig LayoutList) a -> a -> Config () 
+set :: Accessor (XConfig LayoutList) a -> a -> Config ()
 set r x = tell (mkW $ r ^= x)
 add r x = tell (mkW (r ^: mappend x))
 
diff --git a/XMonad/Config/Xfce.hs b/XMonad/Config/Xfce.hs
index 0a77734..0cf4dc8 100644
--- a/XMonad/Config/Xfce.hs
+++ b/XMonad/Config/Xfce.hs
@@ -29,7 +29,7 @@ import qualified Data.Map as M
 -- > import XMonad.Config.Xfce
 -- >
 -- > main = xmonad xfceConfig
--- 
+--
 
 xfceConfig = desktopConfig
     { terminal = "Terminal"