Make --layered-termination and --strong-consensus default option (d78627b5) · Commits · i7 / peregrine

src/Options.hs

+5 −0

Original line number	Diff line number	Diff line
		@@ -61,6 +61,9 @@ startOptions = Options { inputFormat = InPP
		, optPrintStructure = False
		}

		defaultOptions :: Options
		defaultOptions = startOptions{ optProperties = [LayeredTermination, StrongConsensus] }

		options :: [ OptDescr (Options -> Either String Options) ]
		options =
		[ Option "" ["layered-termination"]
		@@ -152,6 +155,8 @@ parseArgs :: IO (Either String (Options, [String]))
		parseArgs = do
		args <- getArgs
		case getOpt Permute options args of
		([], files, []) ->
		return $ (,files) <$> (return defaultOptions)
		(actions, files, []) ->
		return $ (,files) <$> foldl (>>=) (return startOptions) actions
		(_, _, errs) -> return $ Left $ concat errs