summaryrefslogtreecommitdiff
path: root/src/Propellor/Server.hs
diff options
context:
space:
mode:
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