From 0964f3327bfe6c2443736353493e420f2fa1bb67 Mon Sep 17 00:00:00 2001 From: Martin Perner Date: Sat, 14 Jan 2012 19:42:55 +0100 Subject: Remove dependency for ghc's threaded runtime --- src/Xmobar.hs | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'src/Xmobar.hs') 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 -- cgit v1.2.3