From 105da44b55eca8b872fb892d41bf66deb391b76c Mon Sep 17 00:00:00 2001
From: Andrea Rossato <andrea.rossato@ing.unitn.it>
Date: Sat, 27 Oct 2007 13:09:32 +0200
Subject: Main will now open the connection with the X server

darcs-hash:20071027110932-d6583-621b580c6fffcc889489186a0f030f9f39b0500d.gz
---
 Main.hs | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

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
-- 
cgit v1.2.3