diff options
| author | Joey Hess <joeyh@joeyh.name> | 2015-02-28 12:20:03 -0400 |
|---|---|---|
| committer | Joey Hess <joeyh@joeyh.name> | 2015-02-28 12:27:07 -0400 |
| commit | dc03e317b40d640e6501be0fce3e32bc29699fbb (patch) | |
| tree | 4e5b2a7bb2db17c6e962dcbf18f03ada645038f2 /src/wrapper.hs | |
| parent | 1a62575d3dc8ce703705de08ccd27b4b034a3388 (diff) | |
Propellor now builds itself without needing the Makefile.
Diffstat (limited to 'src/wrapper.hs')
| -rw-r--r-- | src/wrapper.hs | 12 |
1 files changed, 5 insertions, 7 deletions
diff --git a/src/wrapper.hs b/src/wrapper.hs index 304e833d..034eb2bf 100644 --- a/src/wrapper.hs +++ b/src/wrapper.hs @@ -15,6 +15,7 @@ module Main where import Propellor.Message +import Propellor.Bootstrap import Utility.UserInfo import Utility.Monad import Utility.Process @@ -91,13 +92,10 @@ wrapper args propellordir propellorbin = do warnoutofdate propellordir True buildruncfg = do changeWorkingDirectory propellordir - ifM (boolSystem "make" [Param "build"]) - ( do - putStrLn "" - putStrLn "" - chain - , error "Propellor build failed." - ) + buildPropellor + putStrLn "" + putStrLn "" + chain chain = do (_, _, _, pid) <- createProcess (proc propellorbin args) exitWith =<< waitForProcess pid |
