From d12c21f8bffea334882452084ead22a6aa6af4de Mon Sep 17 00:00:00 2001
From: Adam Vogt <vogt.adam@gmail.com>
Date: Thu, 19 Dec 2013 21:10:00 +0100
Subject: remove ServerMode tabs

Ignore-this: f21448c248ec0ac289c309ed964ebcff

darcs-hash:20131219201000-1499c-17d24672746258c1681235524e14064dadfe78d9.gz
---
 XMonad/Hooks/ServerMode.hs | 10 +++++-----
 1 file changed, 5 insertions(+), 5 deletions(-)

(limited to 'XMonad/Hooks/ServerMode.hs')

diff --git a/XMonad/Hooks/ServerMode.hs b/XMonad/Hooks/ServerMode.hs
index fe8a71c..b89530e 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)
-- 
cgit v1.2.3