summaryrefslogtreecommitdiff
path: root/Propellor/CmdLine.hs
diff options
context:
space:
mode:
authorJoey Hess2014-04-01 20:47:25 -0400
committerJoey Hess2014-04-01 20:47:25 -0400
commite08accb35adef35abf3fa45d4baa9a799321506f (patch)
tree120b292682aca47e20590a6f8ba7d40c3d5ee617 /Propellor/CmdLine.hs
parent1f314984b5f2f9d9a082bc20e825e2e8c8a273d7 (diff)
nicer parameters when run inside docker
Diffstat (limited to 'Propellor/CmdLine.hs')
-rw-r--r--Propellor/CmdLine.hs3
1 files changed, 2 insertions, 1 deletions
diff --git a/Propellor/CmdLine.hs b/Propellor/CmdLine.hs
index 626828aa..c267e7d4 100644
--- a/Propellor/CmdLine.hs
+++ b/Propellor/CmdLine.hs
@@ -39,6 +39,7 @@ processCmdLine = go =<< getArgs
Just cmdline -> return $ Continue cmdline
Nothing -> errorMessage "--continue serialization failure"
go ("--chain":h:[]) = return $ Chain h
+ go ("--docker":h:[]) = return $ Docker h
go (h:[])
| "--" `isPrefixOf` h = usage
| otherwise = return $ Run h
@@ -62,7 +63,7 @@ defaultMain getprops = do
go _ (Chain host) = withprops host $ \ps -> do
r <- ensureProperties' ps
putStrLn $ "\n" ++ show r
- go _ (ChainDocker host) = Docker.chain host
+ go _ (Docker host) = Docker.chain host
go True cmdline@(Spin _) = buildFirst cmdline $ go False cmdline
go True cmdline = updateFirst cmdline $ go False cmdline
go False (Spin host) = withprops host $ const $ spin host