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/Layout/DragPane.hs | 16 ++++++++--------
 1 file changed, 8 insertions(+), 8 deletions(-)

(limited to 'XMonad/Layout/DragPane.hs')

diff --git a/XMonad/Layout/DragPane.hs b/XMonad/Layout/DragPane.hs
index 8f43d82..f78ca98 100644
--- a/XMonad/Layout/DragPane.hs
+++ b/XMonad/Layout/DragPane.hs
@@ -7,7 +7,7 @@
 --                    David Roundy <droundy@darcs.net>,
 --                    Andrea Rossato <andrea.rossato@unibz.it>
 -- License     :  BSD3-style (see LICENSE)
--- 
+--
 -- Maintainer  :  Andrea Rossato <andrea.rossato@unibz.it>
 -- Stability   :  unstable
 -- Portability :  unportable
@@ -29,7 +29,7 @@ module XMonad.Layout.DragPane (
 import XMonad
 import Data.Unique
 
-import qualified XMonad.StackSet as W 
+import qualified XMonad.StackSet as W
 import XMonad.Util.Invisible
 import XMonad.Util.XUtils
 
@@ -56,8 +56,8 @@ handleColor = "#000000"
 dragPane :: DragType -> Double -> Double -> DragPane a
 dragPane t x y = DragPane (I Nothing) t x y
 
-data DragPane a = 
-    DragPane (Invisible Maybe (Window,Rectangle,Int)) DragType Double Double 
+data DragPane a =
+    DragPane (Invisible Maybe (Window,Rectangle,Int)) DragType Double Double
              deriving ( Show, Read )
 
 data DragType = Horizontal | Vertical deriving ( Show, Read )
@@ -86,7 +86,7 @@ handleMess d@(DragPane mb@(I (Just (win,_,ident))) ty delta split) x
 handleMess _ _ = return Nothing
 
 handleEvent :: DragPane a -> Event -> X ()
-handleEvent (DragPane (I (Just (win,r,ident))) ty _ _) 
+handleEvent (DragPane (I (Just (win,r,ident))) ty _ _)
             (ButtonEvent {ev_window = thisw, ev_subwindow = thisbw, ev_event_type = t })
     | t == buttonPress && thisw == win || thisbw == win  = do
   mouseDrag (\ex ey -> do
@@ -114,12 +114,12 @@ doLay mirror (DragPane mw ty delta split) r s = do
               [] -> case W.down s of
                       (next:_) -> [(W.focus s,left),(next,right)]
                       [] -> [(W.focus s, r)]
-  if length wrs > 1 
+  if length wrs > 1
      then case mw of
-            I (Just (w,_,ident)) -> do 
+            I (Just (w,_,ident)) -> do
                     w' <- deleteWindow w >> newDragWin handr
                     return (wrs, Just $ DragPane (I $ Just (w',r',ident)) ty delta split)
-            I Nothing -> do 
+            I Nothing -> do
                     w <- newDragWin handr
                     i <- io $ newUnique
                     return (wrs, Just $ DragPane (I $ Just (w,r',hashUnique i)) ty delta split)
-- 
cgit v1.2.3