diff options
| author | Eduardo Julian | 2020-10-03 12:55:45 -0400 |
|---|---|---|
| committer | Eduardo Julian | 2020-10-03 12:55:45 -0400 |
| commit | 618b1ce9743bb79f1ae3375b05a394a4183b21e8 (patch) | |
| tree | dd6890c38bcf182d67cd0d7acccf11edb65143fb /stdlib/source/program/aedifex/parser.lux | |
| parent | c10e3c13866ef25bab020ec597fd11aa8d01c862 (diff) | |
Added deployment code to Aedifex.
Diffstat (limited to 'stdlib/source/program/aedifex/parser.lux')
| -rw-r--r-- | stdlib/source/program/aedifex/parser.lux | 8 |
1 files changed, 8 insertions, 0 deletions
diff --git a/stdlib/source/program/aedifex/parser.lux b/stdlib/source/program/aedifex/parser.lux index bbcbabb95..17191d5cb 100644 --- a/stdlib/source/program/aedifex/parser.lux +++ b/stdlib/source/program/aedifex/parser.lux @@ -166,6 +166,11 @@ (Parser Module) <c>.text) +(def: deploy-repository + (Parser [Text //dependency.Repository]) + (<c>.tuple (<>.and <c>.text + ..repository))) + (def: #export project (Parser /.Project) (do {@ <>.monad} @@ -187,4 +192,7 @@ (..singular input "target" <c>.text)) (<>.maybe (..singular input "program" ..module)) (<>.maybe (..singular input "test" ..module)) + (<| (:: @ map (dictionary.from-list text.hash)) + (<>.default (list)) + (..plural input "deploy-repositories" ..deploy-repository)) ))) |