refactor main, add "recompile" to XMonad.Core

darcs-hash:20071108230933-462cf-b1e100cf8f2cecbfef925b870a3fc894fe47513c

1 files changed, 2 insertions, 4 deletions

diff --git a/Main.hs b/Main.hs
index 56df3cd..03b2d69 100644
--- a/Main.hs
+++ b/Main.hs
@@ -16,10 +16,10 @@ module Main (main) where
 
 import XMonad.Main
 import XMonad.Config
+import XMonad.Core (recompile)
 
 import Control.Exception (handle)
 import System.IO
-import System.Process
 import System.Directory
 import System.Environment
 import System.Posix.Process (executeFile)
@@ -43,10 +43,8 @@ main = do
 --
 buildLaunch ::  IO ()
 buildLaunch = do
+    recompile
     dir <- fmap (++ "/.xmonad") getHomeDirectory
-    pid <- runProcess "ghc" ["--make", "xmonad.hs"] (Just dir)
-        Nothing Nothing Nothing Nothing
-    waitForProcess pid
     args <- getArgs
     executeFile (dir ++ "/xmonad") False args Nothing
     return ()