summaryrefslogtreecommitdiff
path: root/src/Propellor/CmdLine.hs
diff options
context:
space:
mode:
Diffstat (limited to 'src/Propellor/CmdLine.hs')
-rw-r--r--src/Propellor/CmdLine.hs8
1 files changed, 2 insertions, 6 deletions
diff --git a/src/Propellor/CmdLine.hs b/src/Propellor/CmdLine.hs
index 5e6769c9..f708c1d9 100644
--- a/src/Propellor/CmdLine.hs
+++ b/src/Propellor/CmdLine.hs
@@ -125,12 +125,8 @@ defaultMain hostlist = withConcurrentOutput $ do
( runhost hn
, go cr (Spin [hn] Nothing)
)
- go _ (SimpleRun hn) = runhost hn
- go cr (Continue cmdline@(SimpleRun hn)) =
- -- --continue SimpleRun is used by --spin,
- -- and unlike all other uses of --continue, this legacy one
- -- wants a build first
- forceConsole >> fetchFirst (buildFirst cr cmdline (runhost hn))
+ go cr cmdline@(SimpleRun hn) = forceConsole >>
+ fetchFirst (buildFirst cr cmdline (runhost hn))
-- When continuing after a rebuild, don't want to rebuild again.
go _ (Continue cmdline) = go NoRebuild cmdline