still do peer-to-peer git push when there are no git remotes

src/Propellor/Git.hs

@@ -42,6 +42,9 @@ hasOrigin = catchDefaultIO False $ do
 	rs <- lines <$> readProcess "git" ["remote"]
 	return $ "origin" `elem` rs
 
+hasGitRepo :: IO Bool
+hasGitRepo = doesFileExist ".git/HEAD"
+
 {- To verify origin branch commit's signature, have to convince gpg
  - to use our keyring.
  - While running git log. Which has no way to pass options to gpg.

src/Propellor/Server.hs

@@ -31,7 +31,7 @@ import Utility.SafeCommand
 -- running the updateServer
 update :: Maybe HostName -> IO ()
 update forhost = do
-	whenM hasOrigin $
+	whenM hasGitRep $
 		req NeedRepoUrl repoUrlMarker setRepoUrl
 
 	makePrivDataDir
@@ -39,7 +39,7 @@ update forhost = do
 	req NeedPrivData privDataMarker $
 		writeFileProtected privfile
 
-	whenM hasOrigin $
+	whenM hasGitRepo $
 		req NeedGitPush gitPushMarker $ \_ -> do
 			hin <- dup stdInput
 			hout <- dup stdOutput