Make --layered-termination and --strong-consensus default option

d78627b5 · Stefan Jaax · e8ba318e · d78627b5
Commit d78627b5 authored May 16, 2017 by Stefan Jaax
--- a/src/Options.hs
+++ b/src/Options.hs
@@ -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