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 | |
| parent | b8862da4403902b99f1b87110f08a4381949692c (diff) | |
| download | xmobar-0964f3327bfe6c2443736353493e420f2fa1bb67.tar.gz xmobar-0964f3327bfe6c2443736353493e420f2fa1bb67.tar.bz2 | |
Remove dependency for ghc's threaded runtime
| -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 |