Skip to content
GitLab
Projects
Groups
Snippets
/
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Sign in
Toggle navigation
Menu
Open sidebar
i7
peregrine
Commits
d78627b5
Commit
d78627b5
authored
May 16, 2017
by
Stefan Jaax
Browse files
Make --layered-termination and --strong-consensus default option
parent
e8ba318e
Changes
1
Hide whitespace changes
Inline
Side-by-side
src/Options.hs
View file @
d78627b5
...
...
@@ -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
...
...
Write
Preview
Supports
Markdown
0%
Try again
or
attach a new file
.
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment