From 78ed2e1a9e3b8a38a23cd18baf82572b152a4abf Mon Sep 17 00:00:00 2001
From: Adam Vogt <vogt.adam@gmail.com>
Date: Thu, 19 Dec 2013 20:10:00 +0000
Subject: [PATCH] remove ServerMode tabs

---
 XMonad/Hooks/ServerMode.hs | 10 +++++-----
 1 file changed, 5 insertions(+), 5 deletions(-)

diff --git a/XMonad/Hooks/ServerMode.hs b/XMonad/Hooks/ServerMode.hs
index fe8a71c4..b89530e4 100644
--- a/XMonad/Hooks/ServerMode.hs
+++ b/XMonad/Hooks/ServerMode.hs
@@ -164,10 +164,10 @@ serverModeEventHookF key func (ClientMessageEvent {ev_message_type = mt, ev_data
         d <- asks display
         atm <- io $ internAtom d key False
         when (mt == atm && dt /= []) $ do
-	     let atom = fromIntegral $ toInteger $ foldr1 (\a b -> a + (b*2^(32::Int))) dt
-	     cmd <- io $ getAtomName d atom
-	     case cmd of
-	          Just command -> func command
-		  Nothing -> io $ hPutStrLn stderr ("Couldn't retrieve atom " ++ (show atom))
+         let atom = fromIntegral $ toInteger $ foldr1 (\a b -> a + (b*2^(32::Int))) dt
+         cmd <- io $ getAtomName d atom
+         case cmd of
+              Just command -> func command
+          Nothing -> io $ hPutStrLn stderr ("Couldn't retrieve atom " ++ (show atom))
         return (All True)
 serverModeEventHookF _ _ _ = return (All True)