From 09eec7e82dc64cd163ff8e72d2b695649082ccee Mon Sep 17 00:00:00 2001 From: Lukas Mai Date: Fri, 9 Nov 2007 00:09:33 +0100 Subject: refactor main, add "recompile" to XMonad.Core darcs-hash:20071108230933-462cf-b1e100cf8f2cecbfef925b870a3fc894fe47513c --- Main.hs | 6 ++---- 1 file changed, 2 insertions(+), 4 deletions(-) (limited to 'Main.hs') 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 () -- cgit v1.2.3