propellor spin

This commit is contained in:
Joey Hess 2014-11-18 20:38:11 -04:00
parent f9f60822ff
commit 6e327fa1a3
Failed to extract signature
1 changed files with 2 additions and 1 deletions

View File

@ -57,6 +57,7 @@ processCmdLine = go =<< getArgs
go ("--continue":s:[]) = case readish s of go ("--continue":s:[]) = case readish s of
Just cmdline -> return $ Continue cmdline Just cmdline -> return $ Continue cmdline
Nothing -> errorMessage $ "--continue serialization failure (" ++ s ++ ")" Nothing -> errorMessage $ "--continue serialization failure (" ++ s ++ ")"
go ("--gitpush":fin:fout:_) = return $ GitPush (Prelude.read fin) (Prelude.read fout)
go (h:[]) go (h:[])
| "--" `isPrefixOf` h = usageError [h] | "--" `isPrefixOf` h = usageError [h]
| otherwise = return $ Run h | otherwise = return $ Run h
@ -233,7 +234,7 @@ update = do
[ Param "pull" [ Param "pull"
, Param "--progress" , Param "--progress"
, Param "--upload-pack" , Param "--upload-pack"
, Param $ "./propellor --continue " ++ show (GitPush hin hout) , Param $ "./propellor --gitpush " ++ show hin ++ " " ++ show hout
, Param "." , Param "."
] ]