From b8cf77207eb7dfa99f842f5b7e63fee95efe3796 Mon Sep 17 00:00:00 2001
From: Jochen Keil <jochen.keil@gmail.com>
Date: Mon, 13 Aug 2012 07:28:55 +0200
Subject: Revert lowerOnStart to its original behaviour

I misunderstood the intention of lowerOnStart and changed the
implementation to what I thought it would have to do. This was wrong
indeed, so back to original behaviour.
---
 src/Window.hs | 1 +
 src/Xmobar.hs | 1 -
 2 files changed, 1 insertion(+), 1 deletion(-)

(limited to 'src')

diff --git a/src/Window.hs b/src/Window.hs
index 9024fff..50bfc56 100644
--- a/src/Window.hs
+++ b/src/Window.hs
@@ -24,6 +24,7 @@ createWin d fs c = do
       (r,o) = setPosition (position c) srs (fi ht)
   win <- newWindow  d (defaultScreenOfDisplay d) rootw r o
   setProperties r c d win srs
+  when (lowerOnStart c) (lowerWindow d win)
   mapWindow         d win
   return (r,win)
 
diff --git a/src/Xmobar.hs b/src/Xmobar.hs
index d758301..5328b6e 100644
--- a/src/Xmobar.hs
+++ b/src/Xmobar.hs
@@ -78,7 +78,6 @@ runX xc f = runReaderT f xc
 startLoop :: XConf -> MVar SignalType -> [[(Maybe ThreadId, TVar String)]] -> IO ()
 startLoop xcfg@(XConf _ _ w _ conf) sig vs = do
     tv <- atomically $ newTVar []
-    when (lowerOnStart conf) $ putMVar sig Hide
     _ <- forkIO (checker tv [] vs sig `catch`
                    \(SomeException _) -> void (putStrLn "Thread checker failed"))
 #ifdef THREADED_RUNTIME
-- 
cgit v1.2.3