Commit 030cff62 authored by Jurrien Stutterheim's avatar Jurrien Stutterheim
Browse files

Add cleanhome flag to parser

parent 1c572fd2
...@@ -164,7 +164,10 @@ pFilename :: CParser Char (Maybe String) BBArgs ...@@ -164,7 +164,10 @@ pFilename :: CParser Char (Maybe String) BBArgs
pFilename = (pNotSpace <@ Just o toString) <!> yield Nothing pFilename = (pNotSpace <@ Just o toString) <!> yield Nothing
pArgs :: CParser Char BBArg BBArgs pArgs :: CParser Char BBArg BBArgs
pArgs = pStringLongOpt "envsfile" <|> pBoolLongOpt "force" <|> pStringLongOpt "action" pArgs = pStringLongOpt "envsfile"
<|> pBoolLongOpt "force"
<|> pStringLongOpt "action"
<|> pStringLongOpt "cleanhome"
......
Supports Markdown
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment