propellor spin

This commit is contained in:
Joey Hess 2014-11-18 20:28:16 -04:00
parent 04737b8975
commit 2ad3334b26
Failed to extract signature
1 changed files with 1 additions and 1 deletions

View File

@ -51,7 +51,7 @@ processCmdLine = go =<< getArgs
go ("--boot":h:[]) = return $ Update h -- for back-compat go ("--boot":h:[]) = return $ Update h -- for back-compat
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" Nothing -> errorMessage $ "--continue serialization failure (" ++ s ++ ")"
go (h:[]) go (h:[])
| "--" `isPrefixOf` h = usage | "--" `isPrefixOf` h = usage
| otherwise = return $ Run h | otherwise = return $ Run h