From 549df2612c0e12d44bf4e998cabdfcf3bb0a7344 Mon Sep 17 00:00:00 2001 From: Joey Hess Date: Mon, 31 Mar 2014 18:06:39 -0400 Subject: propellor spin --- Propellor/CmdLine.hs | 3 +-- 1 file changed, 1 insertion(+), 2 deletions(-) diff --git a/Propellor/CmdLine.hs b/Propellor/CmdLine.hs index aea1d6c2..74b2cab1 100644 --- a/Propellor/CmdLine.hs +++ b/Propellor/CmdLine.hs @@ -106,7 +106,6 @@ updateFirst cmdline next = do then next else do putStrLn "Rebuilding propeller.." - print (oldsha, newsha) hFlush stdout ifM (boolSystem "make" [Param "build"]) ( void $ boolSystem "./propellor" [Param "--continue", Param (show cmdline)] @@ -180,7 +179,7 @@ sendGitClone host url = do withTmpFile "gitbundle" $ \tmp _ -> do -- TODO: ssh connection caching, or better push method -- 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 "ssh" [Param ("root@"++host), Param unpackcmd] where -- cgit v1.2.3