diff options
| author | Martin Perner <martin@perner.cc> | 2011-09-11 17:16:23 +0200 |
|---|---|---|
| committer | Martin Perner <martin@perner.cc> | 2011-09-11 17:16:23 +0200 |
| commit | 7a8b4d611a97de4255131630f578124de5bbf3f4 (patch) | |
| tree | 22a4ae62bf13a751cb0f7792fe4dad20d5210539 /src/Xmobar.hs | |
| parent | f522e5e5158c53faef472752bdd59901cc704264 (diff) | |
| download | xmobar-7a8b4d611a97de4255131630f578124de5bbf3f4.tar.gz xmobar-7a8b4d611a97de4255131630f578124de5bbf3f4.tar.bz2 | |
Minor cleanup
Diffstat (limited to 'src/Xmobar.hs')
| -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}) |