propellor spin

src/Propellor/CmdLine.hs

@@ -156,6 +156,7 @@ updateFirst' cmdline next = ifM fetchOrigin
 
 spin :: HostName -> Maybe HostName -> Host -> IO ()
 spin target relay hst = do
+	unless relaying $ do
 		void $ actionMessage "Git commit" $
 			gitCommit [Param "--allow-empty", Param "-a", Param "-m", Param "propellor spin"]
 		-- Push to central origin repo first, if possible.
@@ -179,6 +180,7 @@ spin target relay hst = do
   where
 	hn = fromMaybe target relay
 	user = "root@"++hn
+	relaying = relay == Just target
 
 	mkcmd = shellWrap . intercalate " ; "