propellor spin

This commit is contained in:
Joey Hess 2014-03-31 16:41:10 -04:00
parent 025a07124d
commit 136de68ca0
Failed to extract signature
1 changed files with 4 additions and 2 deletions

View File

@ -103,8 +103,10 @@ pullFirst cmdline next = do
if oldsha == newsha
then next
else do
void $ boolSystem "make" [Param "build"]
void $ boolSystem "./propellor" [Param "--continue", Param (show cmdline)]
ifM (boolSystem "make" [Param "build"])
( void $ boolSystem "./propellor" [Param "--continue", Param (show cmdline)]
, error "Propellor build failed!"
)
getCurrentGitSha1 :: String -> IO String
getCurrentGitSha1 branchref = readProcess "git" ["show-ref", "--hash", branchref]