mirror of
https://git.cs.ou.nl/joshua.moerman/mealy-decompose.git
synced 2025-04-29 17:57:44 +02:00
17 lines
574 B
Haskell
17 lines
574 B
Haskell
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")
|