diff options
| author | Joey Hess <joey@kitenet.net> | 2014-04-01 20:47:25 -0400 |
|---|---|---|
| committer | Joey Hess <joey@kitenet.net> | 2014-04-01 20:47:25 -0400 |
| commit | e08accb35adef35abf3fa45d4baa9a799321506f (patch) | |
| tree | 120b292682aca47e20590a6f8ba7d40c3d5ee617 /Propellor/CmdLine.hs | |
| parent | 1f314984b5f2f9d9a082bc20e825e2e8c8a273d7 (diff) | |
nicer parameters when run inside docker
Diffstat (limited to 'Propellor/CmdLine.hs')
| -rw-r--r-- | Propellor/CmdLine.hs | 3 |
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 |