summaryrefslogtreecommitdiff
path: root/src
diff options
context:
space:
mode:
Diffstat (limited to 'src')
-rw-r--r--src/Propellor/CmdLine.hs8
1 files changed, 4 insertions, 4 deletions
diff --git a/src/Propellor/CmdLine.hs b/src/Propellor/CmdLine.hs
index 4fd716ab..c31a5cbb 100644
--- a/src/Propellor/CmdLine.hs
+++ b/src/Propellor/CmdLine.hs
@@ -91,7 +91,7 @@ defaultMain hostlist = do
( onlyProcess $ withhost hn mainProperties
, go True (Spin hn)
)
- go False (Boot _) = onlyProcess sync
+ go False (Boot _) = onlyProcess boot
withhost :: HostName -> (Host -> IO ()) -> IO ()
withhost hn a = maybe (unknownhost hn hostlist) a (findHost hostlist hn)
@@ -229,7 +229,7 @@ spin hn hst = do
]
spincmd = mkcmd
- [ "cd " ++ localdir ++ " && ./propellor --spin " ++ hn ]
+ [ "cd " ++ localdir ++ " && ./propellor --continue " ++ show (Chain hn) ]
getstatus :: Handle -> IO BootStrapStatus
getstatus h = do
@@ -302,8 +302,8 @@ fromMarked marker s
len = length marker
matches = filter (marker `isPrefixOf`) $ lines s
-sync :: IO ()
-sync = do
+boot :: IO ()
+boot = do
sendMarked stdout statusMarker $ show Ready
reply <- hGetContentsStrict stdin