diff options
| author | Eduardo Julian | 2020-11-05 22:54:05 -0400 |
|---|---|---|
| committer | Eduardo Julian | 2020-11-05 22:54:05 -0400 |
| commit | ef78c1f92ab29c4370193591b170535dd9e743f7 (patch) | |
| tree | e83fd11eb20b4df26f6f5a20bef38af9d2baac8a /stdlib/source/program/aedifex/parser.lux | |
| parent | 11cc4a67001162d689eb827f755424a07b99fccb (diff) | |
Improved error reporting for syntax macros.
Diffstat (limited to 'stdlib/source/program/aedifex/parser.lux')
| -rw-r--r-- | stdlib/source/program/aedifex/parser.lux | 9 |
1 files changed, 5 insertions, 4 deletions
diff --git a/stdlib/source/program/aedifex/parser.lux b/stdlib/source/program/aedifex/parser.lux index 4fa6612c0..45e1e6a6a 100644 --- a/stdlib/source/program/aedifex/parser.lux +++ b/stdlib/source/program/aedifex/parser.lux @@ -21,6 +21,7 @@ ["/" profile] ["#." project (#+ Project)] ["#." dependency] + ["#." repository] ["#." artifact (#+ Artifact) ["#/." type]]]) @@ -136,7 +137,7 @@ ))) (def: repository - (Parser //dependency.Repository) + (Parser //repository.Address) ..url) (def: type @@ -164,7 +165,7 @@ <c>.text) (def: deploy-repository - (Parser (List [Text //dependency.Repository])) + (Parser (List [Text //repository.Address])) (<c>.record (<>.some (<>.and <c>.text ..repository)))) @@ -185,7 +186,7 @@ ^info (: (Parser (Maybe /.Info)) (<>.maybe (..singular input "info" ..info))) - ^repositories (: (Parser (Set //dependency.Repository)) + ^repositories (: (Parser (Set //repository.Address)) (|> (..plural input "repositories" ..repository) (:: ! map (set.from-list text.hash)) (<>.default (set.new text.hash)))) @@ -206,7 +207,7 @@ ^test (: (Parser (Maybe Module)) (<>.maybe (..singular input "test" ..module))) - ^deploy-repositories (: (Parser (Dictionary Text //dependency.Repository)) + ^deploy-repositories (: (Parser (Dictionary Text //repository.Address)) (<| (:: ! map (dictionary.from-list text.hash)) (<>.default (list)) (..singular input "deploy-repositories" ..deploy-repository)))]] |