propellor spin

src/Propellor/Server.hs

@@ -27,10 +27,12 @@ import Utility.SafeCommand
 -- running the updateServer
 update :: IO ()
 update = do
+	whenM hasOrigin $
 		req NeedRepoUrl repoUrlMarker setRepoUrl
 	makePrivDataDir
 	req NeedPrivData privDataMarker $
 		writeFileProtected privDataLocal
+	whenM hasOrigin $
 		req NeedGitPush gitPushMarker $ \_ -> do
 			hin <- dup stdInput
 			hout <- dup stdOutput
@@ -76,6 +78,7 @@ updateServer hn hst connect = connect go
 				hClose toh
 				hClose fromh
 				sendPrecompiled hn
+				loop
 			Nothing -> return ()
 
 sendRepoUrl :: Handle -> IO ()