summaryrefslogtreecommitdiffhomepage
path: root/src
diff options
context:
space:
mode:
authorMartin Perner <martin@perner.cc>2012-01-14 19:42:55 +0100
committerMartin Perner <martin@perner.cc>2012-01-14 19:42:55 +0100
commit0964f3327bfe6c2443736353493e420f2fa1bb67 (patch)
tree4e0ab0fa7299d4f00e249eaa644efe6c6d0cf6f7 /src
parentb8862da4403902b99f1b87110f08a4381949692c (diff)
downloadxmobar-0964f3327bfe6c2443736353493e420f2fa1bb67.tar.gz
xmobar-0964f3327bfe6c2443736353493e420f2fa1bb67.tar.bz2
Remove dependency for ghc's threaded runtime
Diffstat (limited to 'src')
-rw-r--r--src/Xmobar.hs4
1 files changed, 2 insertions, 2 deletions
diff --git a/src/Xmobar.hs b/src/Xmobar.hs
index b310f0f..dc671fe 100644
--- a/src/Xmobar.hs
+++ b/src/Xmobar.hs
@@ -83,7 +83,7 @@ startLoop xcfg@(XConf _ _ w _ _) vs = do
tv <- atomically $ newTVar []
sig <- setupSignalHandler
_ <- forkIO (checker tv [] vs sig `catch` \(SomeException _) -> putStrLn "Thread checker failed" >> return ())
- _ <- forkOS (eventer sig `catch` \(SomeException _) -> putStrLn "Thread eventer failed" >> return ())
+ _ <- forkIO (eventer sig `catch` \(SomeException _) -> putStrLn "Thread eventer failed" >> return ())
eventLoop tv xcfg sig
where
-- Reacts on events from X
@@ -101,7 +101,7 @@ startLoop xcfg@(XConf _ _ w _ _) vs = do
xrrEventBase <- peek ptrEventBase
forever $ do
- nextEvent dpy e
+ nextEvent' dpy e
ev <- getEvent e
case ev of
ConfigureEvent {} -> putMVar signal Reposition