Skip to content
GitLab
Projects
Groups
Snippets
/
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in
Toggle navigation
Menu
Open sidebar
Valentin Reis
argotest
Commits
43fea3a2
Commit
43fea3a2
authored
Dec 11, 2018
by
Valentin Reis
Browse files
[refactor] argotk internal refactoring
parent
2ff5effc
Pipeline
#4615
failed with stage
in 1 second
Changes
1
Pipelines
1
Hide whitespace changes
Inline
Side-by-side
argotk.hs
View file @
43fea3a2
...
...
@@ -20,13 +20,13 @@ opts :: Parser (IO ())
opts
=
subparser
(
command
"clean"
(
info
(
pure
$
runClean
def
)
idm
)
<>
help
"Target for the greeting"
<>
command
"daemon"
(
info
(
pure
$
runDaemon
def
)
idm
)
<>
command
"helloworld"
(
info
(
pure
$
run
ArgoTest
def
)
idm
)
)
<>
command
"helloworld"
(
info
(
pure
$
run
SimpleStack
def
)
idm
)
)
main
::
IO
()
main
=
join
$
execParser
(
info
(
opts
<**>
helper
)
idm
)
run
ArgoTest
::
StackArgs
->
IO
()
run
ArgoTest
a
@
StackArgs
{
..
}
=
sh
$
do
run
SimpleStack
::
StackArgs
->
IO
()
run
SimpleStack
a
@
StackArgs
{
..
}
=
sh
$
do
cleanLeftovers
daemon_out
daemon_err
cmd_out
cmd_err
time_file
nrm_log
daemonShell
<-
prepareDaemonShell
dargs
daemon_out
daemon_err
nrm_log
...
...
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