only push when needsinit

Assistant/WebApp/Configurators/Ssh.hs

@@ -506,11 +506,12 @@ prepSsh' needsinit origsshdata sshdata keypair a
 		{- To ensure the repository is initialized, try to push the
 		 - git-annex branch to it. Then git-annex-shell will see
 		 - the branch and auto-initialize. -}
-		void $ liftAnnex $ inRepo $ Git.Command.runBool
-			[ Param "push"
-			, Param (genSshUrl sshdata)
-			, Param (fromRef Annex.Branch.name)
-			]
+		when needsinit $ do
+			void $ liftAnnex $ inRepo $ Git.Command.runBool
+				[ Param "push"
+				, Param (genSshUrl sshdata)
+				, Param (fromRef Annex.Branch.name)
+				]
 		a sshdata
 	| otherwise = sshSetup (mkSshInput origsshdata)
 		 [ "-p", show (sshPort origsshdata)