diff options
| -rw-r--r-- | src/Xmobar.hs | 4 | ||||
| -rw-r--r-- | xmobar.cabal | 2 |
2 files changed, 3 insertions, 3 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 diff --git a/xmobar.cabal b/xmobar.cabal index ffd2cd7..60ac051 100644 --- a/xmobar.cabal +++ b/xmobar.cabal @@ -86,7 +86,7 @@ executable xmobar ghc-prof-options: -prof -auto-all if true - ghc-options: -funbox-strict-fields -Wall -threaded + ghc-options: -funbox-strict-fields -Wall extra-libraries: Xrandr -- Use --disable-optimization configure flag |