module CommonOptions where

import Options.Applicative

data CommonOptions = CommonOptions
  { extraChecks :: Bool
  , logDirectory :: FilePath
  , resultsDirectory :: FilePath
  }
  deriving Show

commonOptionsParser :: Parser CommonOptions
commonOptionsParser =
  CommonOptions
    <$> switch (long "extra-checks" <> help "Enable extra validation checks")
    <*> option str (long "log-directory" <> help "Directory for logging" <> showDefault <> value "log")
    <*> option str (long "results-directory" <> help "Directory for outputs" <> showDefault <> value "results")