summaryrefslogtreecommitdiff
path: root/src/Propellor/Server.hs
diff options
context:
space:
mode:
authorJoey Hess2014-11-22 15:18:30 -0400
committerJoey Hess2014-11-22 15:18:30 -0400
commitef883cbbe809498800f22ea8fd68d9102f64c27d (patch)
treec12d53fffc06a6f7edead72cfbb2267ba229c060 /src/Propellor/Server.hs
parentd409014277402a33b99e5785d1076db43d96ad27 (diff)
still do peer-to-peer git push when there are no git remotes
Diffstat (limited to 'src/Propellor/Server.hs')
-rw-r--r--src/Propellor/Server.hs4
1 files changed, 2 insertions, 2 deletions
diff --git a/src/Propellor/Server.hs b/src/Propellor/Server.hs
index 05a8856d..bf3ba3f9 100644
--- a/src/Propellor/Server.hs
+++ b/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