Add cleanhome flag to parser

030cff62 · Jurrien Stutterheim · 1c572fd2 · 030cff62
Commit 030cff62 authored Feb 27, 2013 by Jurrien Stutterheim
--- a/BatchBuild/BatchBuild.icl
+++ b/BatchBuild/BatchBuild.icl
@@ -164,7 +164,10 @@ pFilename :: CParser Char (Maybe String) BBArgs
 pFilename = (pNotSpace <@ Just o toString) <!> yield Nothing

 pArgs :: CParser Char BBArg BBArgs
-pArgs = pStringLongOpt "envsfile" <|> pBoolLongOpt "force" <|> pStringLongOpt "action"
+pArgs =  pStringLongOpt "envsfile"
+    <|>  pBoolLongOpt "force"
+    <|>  pStringLongOpt "action"
+    <|>  pStringLongOpt "cleanhome"