propellor spin

Propellor/CmdLine.hs

@@ -142,18 +142,17 @@ spin host = do
 	user = "root@"++host
 
 	bootstrapcmd = shellWrap $ intercalate " && "
-		[ intercalate " ; "
 		[ "if [ ! -d " ++ localdir ++ " ]"
 		, "then " ++ intercalate " && "
 			[ "apt-get -y install git"
 			, "echo " ++ toMarked statusMarker (show NeedGitClone)
 			]
-			, "fi"
-			]
-		, "cd " ++ localdir
-		, "make build"
+		, "else " ++ intercalate " && "
+			[ "cd " ++ localdir
+			, "if [ ! -x ./propellor ]; then make build; fi"
 			, "./propellor --boot " ++ host
 			]
+		]
 
 	getstatus :: Handle -> IO BootStrapStatus
 	getstatus h = do