summaryrefslogtreecommitdiff
path: root/src/Propellor/CmdLine.hs
diff options
context:
space:
mode:
authorJoey Hess2014-11-18 20:38:11 -0400
committerJoey Hess2014-11-18 20:38:11 -0400
commit6e327fa1a3de1801714cad63dcb145d49bcfb008 (patch)
treea1cbb95a2f182bb72f8f365cd56cbc0bec443e6e /src/Propellor/CmdLine.hs
parentf9f60822ff56c439cc4d08a6259ed73176f850d2 (diff)
propellor spin
Diffstat (limited to 'src/Propellor/CmdLine.hs')
-rw-r--r--src/Propellor/CmdLine.hs3
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 "."
]