diff options
| -rw-r--r-- | src/Xmobar.hs | 6 |
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}) |