propellor spin
This commit is contained in:
parent
04737b8975
commit
2ad3334b26
|
@ -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
|
||||||
|
|
Loading…
Reference in New Issue