summaryrefslogtreecommitdiffhomepage
path: root/src
diff options
context:
space:
mode:
Diffstat (limited to 'src')
-rw-r--r--src/Xmobar.hs6
1 files changed, 3 insertions, 3 deletions
diff --git a/src/Xmobar.hs b/src/Xmobar.hs
index efc50e8..c107d46 100644
--- a/src/Xmobar.hs
+++ b/src/Xmobar.hs
@@ -82,8 +82,8 @@ eventLoop :: XConf -> [[(Maybe ThreadId, TVar String)]] -> IO ()
eventLoop xcfg@(XConf d _ w fs _) vs = do
tv <- atomically $ newTVar []
sig <- setupSignalHandler
- _ <- forkIO (checker tv [] sig `catch` \(SomeException _) -> putStrLn "Oh Noez checker" >> return ())
- _ <- forkOS (eventer sig `catch` \(SomeException _) -> putStrLn "Oh Noez eventer" >>return ())
+ _ <- forkIO (checker tv [] sig `catch` \(SomeException _) -> putStrLn "Thread checker failed" >> return ())
+ _ <- forkOS (eventer sig `catch` \(SomeException _) -> putStrLn "Thread eventer failed" >> return ())
go tv xcfg sig
where
-- interrupt the drawing thread every time a var is updated
@@ -135,7 +135,7 @@ eventLoop xcfg@(XConf d _ w fs _) vs = do
case position cfg of
OnScreen n o -> do
srs <- getScreenInfo d
- if n == length srs then do
+ if n == length srs then
reposWindow (cfg {position = OnScreen 1 o})
else
reposWindow (cfg {position = OnScreen (n+1) o})