cadey
/
propellor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

propellor spin

This commit is contained in:
Joey Hess 2014-03-31 18:06:39 -04:00
parent 190a8d2876
commit 549df2612c
Failed to extract signature
1 changed files with 1 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
Propellor/CmdLine.hs
View File

@ -106,7 +106,6 @@ updateFirst cmdline next = do
then next then next
else do else do
putStrLn "Rebuilding propeller.." putStrLn "Rebuilding propeller.."
print (oldsha, newsha)
hFlush stdout hFlush stdout
ifM (boolSystem "make" [Param "build"]) ifM (boolSystem "make" [Param "build"])
( void $ boolSystem "./propellor" [Param "--continue", Param (show cmdline)] ( void $ boolSystem "./propellor" [Param "--continue", Param (show cmdline)]
@ -180,7 +179,7 @@ sendGitClone host url = do
withTmpFile "gitbundle" $ \tmp _ -> do withTmpFile "gitbundle" $ \tmp _ -> do
-- TODO: ssh connection caching, or better push method -- TODO: ssh connection caching, or better push method
-- with less connections. -- with less connections.
void $ boolSystem "git" [Param "bundle", Param "create", File tmp, Param "HEAD"] void $ boolSystem "git" [Param "bundle", Param "create", Param "-2", File tmp, Param "HEAD"]
void $ boolSystem "scp" [File tmp, Param ("root@"++host++":"++remotebundle)] void $ boolSystem "scp" [File tmp, Param ("root@"++host++":"++remotebundle)]
void $ boolSystem "ssh" [Param ("root@"++host), Param unpackcmd] void $ boolSystem "ssh" [Param ("root@"++host), Param unpackcmd]
where where