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/Tabbed.hs | 12 ++++++------
 1 file changed, 6 insertions(+), 6 deletions(-)

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

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