diff options
| author | Joey Hess <joey@kitenet.net> | 2014-11-18 20:38:11 -0400 |
|---|---|---|
| committer | Joey Hess <joey@kitenet.net> | 2014-11-18 20:38:11 -0400 |
| commit | 6e327fa1a3de1801714cad63dcb145d49bcfb008 (patch) | |
| tree | a1cbb95a2f182bb72f8f365cd56cbc0bec443e6e /src/Propellor/CmdLine.hs | |
| parent | f9f60822ff56c439cc4d08a6259ed73176f850d2 (diff) | |
propellor spin
Diffstat (limited to 'src/Propellor/CmdLine.hs')
| -rw-r--r-- | src/Propellor/CmdLine.hs | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/src/Propellor/CmdLine.hs b/src/Propellor/CmdLine.hs index b3f7f703..6552b125 100644 --- a/src/Propellor/CmdLine.hs +++ b/src/Propellor/CmdLine.hs @@ -57,6 +57,7 @@ processCmdLine = go =<< getArgs go ("--continue":s:[]) = case readish s of Just cmdline -> return $ Continue cmdline Nothing -> errorMessage $ "--continue serialization failure (" ++ s ++ ")" + go ("--gitpush":fin:fout:_) = return $ GitPush (Prelude.read fin) (Prelude.read fout) go (h:[]) | "--" `isPrefixOf` h = usageError [h] | otherwise = return $ Run h @@ -233,7 +234,7 @@ update = do [ Param "pull" , Param "--progress" , Param "--upload-pack" - , Param $ "./propellor --continue " ++ show (GitPush hin hout) + , Param $ "./propellor --gitpush " ++ show hin ++ " " ++ show hout , Param "." ] |