From 7a8b4d611a97de4255131630f578124de5bbf3f4 Mon Sep 17 00:00:00 2001 From: Martin Perner Date: Sun, 11 Sep 2011 17:16:23 +0200 Subject: Minor cleanup --- src/Xmobar.hs | 6 +++--- 1 file 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}) -- cgit v1.2.3