diff options
Diffstat (limited to 'stdlib/source/program/aedifex/parser.lux')
| -rw-r--r-- | stdlib/source/program/aedifex/parser.lux | 58 |
1 files changed, 29 insertions, 29 deletions
diff --git a/stdlib/source/program/aedifex/parser.lux b/stdlib/source/program/aedifex/parser.lux index 7f184b2eb..7fa14fb60 100644 --- a/stdlib/source/program/aedifex/parser.lux +++ b/stdlib/source/program/aedifex/parser.lux @@ -79,10 +79,10 @@ (def: license (Parser /.License) (do [! <>.monad] - [input (# ! each - (dictionary.of_list text.hash) - (<code>.tuple (<>.some (<>.and <code>.text - <code>.any))))] + [input (at ! each + (dictionary.of_list text.hash) + (<code>.tuple (<>.some (<>.and <code>.text + <code>.any))))] (all <>.and (..singular input "name" ..name) (..singular input "url" ..url) @@ -94,10 +94,10 @@ (def: organization (Parser /.Organization) (do [! <>.monad] - [input (# ! each - (dictionary.of_list text.hash) - (<code>.tuple (<>.some (<>.and <code>.text - <code>.any))))] + [input (at ! each + (dictionary.of_list text.hash) + (<code>.tuple (<>.some (<>.and <code>.text + <code>.any))))] (all <>.and (..singular input "name" ..name) (..singular input "url" ..url)))) @@ -105,10 +105,10 @@ (def: developer (Parser /.Developer) (do [! <>.monad] - [input (# ! each - (dictionary.of_list text.hash) - (<code>.tuple (<>.some (<>.and <code>.text - <code>.any))))] + [input (at ! each + (dictionary.of_list text.hash) + (<code>.tuple (<>.some (<>.and <code>.text + <code>.any))))] (all <>.and (..singular input "name" ..name) (..singular input "url" ..url) @@ -122,10 +122,10 @@ (def: info (Parser /.Info) (do [! <>.monad] - [input (# ! each - (dictionary.of_list text.hash) - (<code>.tuple (<>.some (<>.and <code>.text - <code>.any))))] + [input (at ! each + (dictionary.of_list text.hash) + (<code>.tuple (<>.some (<>.and <code>.text + <code>.any))))] (all <>.and (<>.maybe (..singular input "name" ..name)) (<>.maybe (..singular input "url" ..url)) @@ -196,10 +196,10 @@ (def: profile (Parser /.Profile) (do [! <>.monad] - [input (# ! each - (dictionary.of_list text.hash) - (<code>.tuple (<>.some (<>.and <code>.text - <code>.any)))) + [input (at ! each + (dictionary.of_list text.hash) + (<code>.tuple (<>.some (<>.and <code>.text + <code>.any)))) .let [^parents (is (Parser (List /.Name)) (<>.else (list) (..plural input "parents" <code>.text))) @@ -211,12 +211,12 @@ (..singular input "info" ..info))) ^repositories (is (Parser (Set //repository.Address)) (|> (..plural input "repositories" ..repository) - (# ! each (set.of_list text.hash)) + (at ! each (set.of_list text.hash)) (<>.else (set.empty text.hash)) - (# ! each (set.has /.default_repository)))) + (at ! each (set.has /.default_repository)))) ^dependencies (is (Parser (Set //dependency.Dependency)) (|> (..plural input "dependencies" ..dependency) - (# ! each (set.of_list //dependency.hash)) + (at ! each (set.of_list //dependency.hash)) (<>.else (set.empty //dependency.hash)))) ^lux (|> ..dependency (..singular input //format.lux_compiler_label) @@ -226,7 +226,7 @@ (<>.else (list))) ^sources (is (Parser (Set /.Source)) (|> (..plural input "sources" ..source) - (# ! each (set.of_list text.hash)) + (at ! each (set.of_list text.hash)) (<>.else (set.of_list text.hash (list /.default_source))))) ^target (is (Parser /.Target) (|> ..target @@ -239,7 +239,7 @@ (<>.maybe (..singular input "test" ..module))) ^deploy_repositories (is (Parser (Dictionary Text //repository.Address)) - (<| (# ! each (dictionary.of_list text.hash)) + (<| (at ! each (dictionary.of_list text.hash)) (<>.else (list)) (..plural input "deploy_repositories" ..deploy_repository))) ^configuration (is (Parser (PList Text)) @@ -283,7 +283,7 @@ (def: .public project (Parser Project) - (# <>.monad each - (dictionary.of_list text.hash) - (<code>.tuple (<>.many (<>.and <code>.text - ..profile))))) + (at <>.monad each + (dictionary.of_list text.hash) + (<code>.tuple (<>.many (<>.and <code>.text + ..profile))))) |