diff options
author | Eduardo Julian | 2020-10-07 17:00:57 -0400 |
---|---|---|
committer | Eduardo Julian | 2020-10-07 17:00:57 -0400 |
commit | ce7614f00a134cb61b4a6f88cfea33461a7bf478 (patch) | |
tree | fcd6fd7206ceef50db7687c6d4d8b71ff581d41b /stdlib/source/program/aedifex/parser.lux | |
parent | de673c2adf9fdf848f8fff977a6cddc036cbfa9e (diff) |
Test imports for circular dependencies.
Diffstat (limited to 'stdlib/source/program/aedifex/parser.lux')
-rw-r--r-- | stdlib/source/program/aedifex/parser.lux | 23 |
1 files changed, 12 insertions, 11 deletions
diff --git a/stdlib/source/program/aedifex/parser.lux b/stdlib/source/program/aedifex/parser.lux index 87f41f2c6..1799db09e 100644 --- a/stdlib/source/program/aedifex/parser.lux +++ b/stdlib/source/program/aedifex/parser.lux @@ -81,13 +81,13 @@ (dictionary.from-list text.hash) (<c>.record (<>.some (<>.and <c>.local-tag <c>.any))))] - (<c>.tuple ($_ <>.and - (..singular input "name" ..name) - (..singular input "url" ..url) - (<>.default #/.Repo - (..singular input "type" - (<>.or (<c>.this! (' #repo)) - (<c>.this! (' #manual))))))))) + ($_ <>.and + (..singular input "name" ..name) + (..singular input "url" ..url) + (<>.default #/.Repo + (..singular input "type" + (<>.or (<c>.this! (' #repo)) + (<c>.this! (' #manual)))))))) (def: organization (Parser /.Organization) @@ -163,9 +163,10 @@ <c>.text) (def: deploy-repository - (Parser [Text //dependency.Repository]) - (<c>.tuple (<>.and <c>.text - ..repository))) + (Parser (List [Text //dependency.Repository])) + (<c>.record (<>.some + (<>.and <c>.text + ..repository)))) (def: profile (Parser /.Profile) @@ -207,7 +208,7 @@ ^deploy-repositories (: (Parser (Dictionary Text //dependency.Repository)) (<| (:: @ map (dictionary.from-list text.hash)) (<>.default (list)) - (..plural input "deploy-repositories" ..deploy-repository)))]] + (..singular input "deploy-repositories" ..deploy-repository)))]] ($_ <>.and ^parents ^identity |