Main will now open the connection with the X server

darcs-hash:20071027110932-d6583-621b580c6fffcc889489186a0f030f9f39b0500d.gz

1 files changed, 3 insertions, 1 deletions

diff --git a/Main.hs b/Main.hs
index 3bd20ff..d94be69 100644
--- a/Main.hs
+++ b/Main.hs
@@ -24,6 +24,7 @@ import Parsers
 import Config
 
 import Data.IORef
+import Graphics.X11.Xlib
 import System.Console.GetOpt
 import System.Exit
 import System.Environment
@@ -34,6 +35,7 @@ import System.Posix.Files
 -- | The main entry point
 main :: IO ()
 main = do
+  d   <- openDisplay ""
   args     <- getArgs
   (o,file) <- getOpts args
   c        <- case file of
@@ -44,7 +46,7 @@ main = do
   conf     <- readIORef civ
   cl       <- parseTemplate conf (template conf)
   vars     <- mapM startCommand cl
-  (d,w)    <- createWin conf
+  w        <- createWin d conf
   eventLoop conf vars d w
 
 -- | Reads the configuration files or quits with an error