summaryrefslogtreecommitdiff
path: root/src/wrapper.hs
diff options
context:
space:
mode:
authorJoey Hess2015-02-28 12:20:03 -0400
committerJoey Hess2015-02-28 12:27:07 -0400
commitdc03e317b40d640e6501be0fce3e32bc29699fbb (patch)
tree4e5b2a7bb2db17c6e962dcbf18f03ada645038f2 /src/wrapper.hs
parent1a62575d3dc8ce703705de08ccd27b4b034a3388 (diff)
Propellor now builds itself without needing the Makefile.
Diffstat (limited to 'src/wrapper.hs')
-rw-r--r--src/wrapper.hs12
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