diff options
author | Lukas Mai <l.mai@web.de> | 2007-11-09 00:09:33 +0100 |
---|---|---|
committer | Lukas Mai <l.mai@web.de> | 2007-11-09 00:09:33 +0100 |
commit | 189a665cfdd7be7e7b2ef11c1a81a6ca011944da (patch) | |
tree | cdbd63c7ae1122453c97d5cd50d654fd300bb89f /Main.hs | |
parent | 9b6926e72d37d0ee233dd9c30e9521e20c57c77b (diff) | |
download | xmonad-189a665cfdd7be7e7b2ef11c1a81a6ca011944da.tar.gz xmonad-189a665cfdd7be7e7b2ef11c1a81a6ca011944da.tar.xz xmonad-189a665cfdd7be7e7b2ef11c1a81a6ca011944da.zip |
refactor main, add "recompile" to XMonad.Core
darcs-hash:20071108230933-462cf-b1e100cf8f2cecbfef925b870a3fc894fe47513c.gz
Diffstat (limited to 'Main.hs')
-rw-r--r-- | Main.hs | 6 |
1 files changed, 2 insertions, 4 deletions
@@ -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 () |