summaryrefslogtreecommitdiffhomepage
diff options
context:
space:
mode:
-rw-r--r--Xmobar.hs4
1 files changed, 2 insertions, 2 deletions
diff --git a/Xmobar.hs b/Xmobar.hs
index 4cf53b3..6e598d7 100644
--- a/Xmobar.hs
+++ b/Xmobar.hs
@@ -80,7 +80,7 @@ eventLoop :: Xbar ()
eventLoop =
do c <- ask
s <- get
- io $ forkIO $ sendUpdateEvent (display s) (window s) (refresh c)
+ io $ forkOS $ sendUpdateEvent (display s) (window s) (refresh c)
io $ allocaXEvent $ \e ->
nextEvent (display s) e
updateWin
@@ -194,7 +194,7 @@ execCommands c (x:xs) =
execCommand :: Config -> (Runnable,String,String) -> IO (ThreadId, MVar String)
execCommand c com =
do var <- newMVar "Updating..."
- h <- forkIO $ runCommandLoop var c com
+ h <- forkOS $ runCommandLoop var c com
return (h,var)
runCommandLoop :: MVar String -> Config -> (Runnable,String,String) -> IO ()