diff options
| author | Martin Perner <martin@perner.cc> | 2012-01-14 19:42:55 +0100 |
|---|---|---|
| committer | Martin Perner <martin@perner.cc> | 2012-01-14 19:42:55 +0100 |
| commit | 0964f3327bfe6c2443736353493e420f2fa1bb67 (patch) | |
| tree | 4e0ab0fa7299d4f00e249eaa644efe6c6d0cf6f7 /src/Xmobar.hs | |
| parent | b8862da4403902b99f1b87110f08a4381949692c (diff) | |
| download | xmobar-0964f3327bfe6c2443736353493e420f2fa1bb67.tar.gz xmobar-0964f3327bfe6c2443736353493e420f2fa1bb67.tar.bz2 | |
Remove dependency for ghc's threaded runtime
Diffstat (limited to 'src/Xmobar.hs')
| -rw-r--r-- | src/Xmobar.hs | 4 |
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 |