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

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