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