summaryrefslogtreecommitdiffhomepage
path: root/src/Xmobar.hs
diff options
context:
space:
mode:
authorMartin Perner <martin@perner.cc>2011-09-11 17:16:23 +0200
committerMartin Perner <martin@perner.cc>2011-09-11 17:16:23 +0200
commit7a8b4d611a97de4255131630f578124de5bbf3f4 (patch)
tree22a4ae62bf13a751cb0f7792fe4dad20d5210539 /src/Xmobar.hs
parentf522e5e5158c53faef472752bdd59901cc704264 (diff)
downloadxmobar-7a8b4d611a97de4255131630f578124de5bbf3f4.tar.gz
xmobar-7a8b4d611a97de4255131630f578124de5bbf3f4.tar.bz2
Minor cleanup
Diffstat (limited to 'src/Xmobar.hs')
-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})