From 0a99440e52d872287b1add151c2608f089c45c5c Mon Sep 17 00:00:00 2001
From: Spencer Janssen <sjanssen@cse.unl.edu>
Date: Sat, 22 Dec 2007 06:04:39 +0100
Subject: No more tabs

darcs-hash:20071222050439-a5988-7eb14f0e316b41ace318d1e4b92d15aaa3808c4d.gz
---
 XMonad/Layout/DragPane.hs |  2 +-
 XMonad/Layout/Grid.hs     |  2 +-
 XMonad/Layout/Tabbed.hs   | 12 ++++++------
 3 files changed, 8 insertions(+), 8 deletions(-)

(limited to 'XMonad/Layout')

diff --git a/XMonad/Layout/DragPane.hs b/XMonad/Layout/DragPane.hs
index f13eca3..7e10597 100644
--- a/XMonad/Layout/DragPane.hs
+++ b/XMonad/Layout/DragPane.hs
@@ -107,7 +107,7 @@ doLay mirror (DragPane mw ty delta split) r s = do
                                mirror $ Rectangle x y (w-halfHandleWidth) h
       right = case right' of
                 Rectangle x y w h ->
-		    mirror $ Rectangle (x+halfHandleWidth) y (w-halfHandleWidth) h
+                    mirror $ Rectangle (x+halfHandleWidth) y (w-halfHandleWidth) h
       handr = case left' of
                 Rectangle x y w h ->
                     mirror $ Rectangle (x + fromIntegral w - halfHandleWidth) y (2*halfHandleWidth) h
diff --git a/XMonad/Layout/Grid.hs b/XMonad/Layout/Grid.hs
index 36a5768..1c7c5a6 100644
--- a/XMonad/Layout/Grid.hs
+++ b/XMonad/Layout/Grid.hs
@@ -17,7 +17,7 @@
 module XMonad.Layout.Grid (
     -- * Usage
     -- $usage
-	Grid(..)
+        Grid(..)
 ) where
 
 import XMonad
diff --git a/XMonad/Layout/Tabbed.hs b/XMonad/Layout/Tabbed.hs
index 237db34..2b30caf 100644
--- a/XMonad/Layout/Tabbed.hs
+++ b/XMonad/Layout/Tabbed.hs
@@ -204,8 +204,8 @@ updateTab ishr c fs wh (tabw,ow) = do
   dpy <- asks display
   let s = shrinkIt ishr
   name <- shrinkWhile s (\n -> do
-			   size <- io $ textWidthXMF dpy fs n
-			   return $ size > fromIntegral wh - fromIntegral (ht `div` 2)) (show nw)
+                                size <- io $ textWidthXMF dpy fs n
+                                return $ size > fromIntegral wh - fromIntegral (ht `div` 2)) (show nw)
   paintAndWrite tabw fs wh ht 1 bc' borderc' tc' bc' AlignCenter name
 
 shrink :: TConf -> Rectangle -> Rectangle
@@ -217,10 +217,10 @@ shrinkWhile sh p x = sw $ sh x
     where sw [n] = return n
           sw [] = return ""
           sw (n:ns) = do
-	                cond <- p n
-			if cond
-			  then sw ns
-			  else return n
+                        cond <- p n
+                        if cond
+                          then sw ns
+                          else return n
 
 data CustomShrink = CustomShrink
 instance Show CustomShrink where show _ = ""
-- 
cgit v1.2.3