Skip to content
GitLab
Menu
Projects
Groups
Snippets
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in
Toggle navigation
Menu
Open sidebar
argo
argotk
Commits
e34cc0dd
Commit
e34cc0dd
authored
Feb 20, 2019
by
Valentin Reis
Browse files
Style
parent
3a9546ae
Changes
2
Hide whitespace changes
Inline
Side-by-side
share/modified.lj
View file @
e34cc0dd
...
...
@@ -29,4 +29,4 @@ fix 1 all nve
thermo 100
run
1
00
run
3000
00
src/Argo/Args.hs
View file @
e34cc0dd
...
...
@@ -29,17 +29,17 @@ data StackArgs = StackArgs
,
shareDir
::
ShareDir
,
manifestName
::
ManifestName
,
preludeCommand
::
PreludeCommand
,
daemon
::
ProcessBehavior
,
cmdrun
::
ProcessBehavior
,
cmdlisten
::
ProcessBehavior
,
cmdlistenprogress
::
ProcessBehavior
,
cmdlistenperformance
::
ProcessBehavior
,
daemon
,
cmdrun
,
cmdlisten
,
cmdlistenprogress
,
cmdlistenperformance
,
cmdlistenpower
::
ProcessBehavior
,
hwThreadCount
::
HwThreadCount
}
deriving
(
Show
)
{-data OutputFiles = OutputFiles FilePath FilePath-}
data
Verbosity
=
Normal
|
Verbose
deriving
(
Show
,
Read
,
Eq
)
data
Verbosity
=
Normal
|
Verbose
deriving
(
Show
,
Read
,
Eq
)
newtype
HwThreadCount
=
HwThreadCount
Int
deriving
(
Show
,
Read
,
Eq
)
newtype
AppArg
=
AppArg
Text
deriving
(
IsString
,
Show
,
Read
)
newtype
WorkingDirectory
=
WorkingDirectory
FilePath
deriving
(
IsString
,
Show
)
...
...
@@ -176,7 +176,8 @@ parseExtendStackArgs sa = do
<>
showDefault
<>
value
(
cmdlistenpower
sa
)
)
hwThreadCount
<-
option
auto
hwThreadCount
<-
option
auto
(
long
"threadCount"
<>
metavar
"THREADS"
<>
help
"Number of threads to use when running the stack."
...
...
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a 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