Use asynchronous exceptions to obviate the need for forkOS and threaded

darcs-hash:20070717225131-a5988-1f5e0cb3c8373b5eb6f7e87496110409380ded23.gz

1 files changed, 2 insertions, 1 deletions

diff --git a/Main.hs b/Main.hs
index c83b1f5..55e5487 100644
--- a/Main.hs
+++ b/Main.hs
@@ -37,7 +37,8 @@ main =
        cl <- parseTemplate config (template config)
        var <- execCommands config cl
        (d,w) <- createWin config
-       runXbar config var d w eventLoop
+       eventLoop config var d w
+       return ()
 
 -- | Reads the configuration files or quits with an error
 readConfig :: FilePath -> IO Config