diff options
author | Eduardo Julian | 2022-12-02 19:33:00 -0400 |
---|---|---|
committer | Eduardo Julian | 2022-12-02 19:33:00 -0400 |
commit | 94e5802f594a73245fce0fbd885103b8bf210d57 (patch) | |
tree | 65e5799c0be40f5f015b39bfa6c87c9c27fd9424 /stdlib/source/program/aedifex/parser.lux | |
parent | b491dfff00219d5206075ea65468e00ab657075d (diff) |
Added some simple time-series handling machinery.
Diffstat (limited to '')
-rw-r--r-- | stdlib/source/program/aedifex/parser.lux | 22 |
1 files changed, 11 insertions, 11 deletions
diff --git a/stdlib/source/program/aedifex/parser.lux b/stdlib/source/program/aedifex/parser.lux index 96a717dbc..6e670a5c7 100644 --- a/stdlib/source/program/aedifex/parser.lux +++ b/stdlib/source/program/aedifex/parser.lux @@ -78,7 +78,7 @@ (def license (Parser /.License) (do [! <>.monad] - [input (at ! each + [input (of ! each (dictionary.of_list text.hash) (<code>.tuple (<>.some (<>.and <code>.text <code>.any))))] @@ -93,7 +93,7 @@ (def organization (Parser /.Organization) (do [! <>.monad] - [input (at ! each + [input (of ! each (dictionary.of_list text.hash) (<code>.tuple (<>.some (<>.and <code>.text <code>.any))))] @@ -104,7 +104,7 @@ (def developer (Parser /.Developer) (do [! <>.monad] - [input (at ! each + [input (of ! each (dictionary.of_list text.hash) (<code>.tuple (<>.some (<>.and <code>.text <code>.any))))] @@ -121,7 +121,7 @@ (def info (Parser /.Info) (do [! <>.monad] - [input (at ! each + [input (of ! each (dictionary.of_list text.hash) (<code>.tuple (<>.some (<>.and <code>.text <code>.any))))] @@ -198,7 +198,7 @@ (def profile (Parser /.Profile) (do [! <>.monad] - [input (at ! each + [input (of ! each (dictionary.of_list text.hash) (<code>.tuple (<>.some (<>.and <code>.text <code>.any)))) @@ -213,12 +213,12 @@ (..singular input "info" ..info))) ^repositories (is (Parser (Set //repository.Address)) (|> (..plural input "repositories" ..repository) - (at ! each (set.of_list text.hash)) + (of ! each (set.of_list text.hash)) (<>.else (set.empty text.hash)) - (at ! each (set.has /.default_repository)))) + (of ! each (set.has /.default_repository)))) ^dependencies (is (Parser (Set //dependency.Dependency)) (|> (..plural input "dependencies" ..dependency) - (at ! each (set.of_list //dependency.hash)) + (of ! each (set.of_list //dependency.hash)) (<>.else (set.empty //dependency.hash)))) ^lux (|> ..dependency (..singular input //format.lux_compiler_label) @@ -228,7 +228,7 @@ (<>.else (list))) ^sources (is (Parser (Set /.Source)) (|> (..plural input "sources" ..source) - (at ! each (set.of_list text.hash)) + (of ! each (set.of_list text.hash)) (<>.else (set.of_list text.hash (list /.default_source))))) ^target (is (Parser /.Target) (|> ..target @@ -241,7 +241,7 @@ (<>.maybe (..singular input "test" ..program))) ^deploy_repositories (is (Parser (Dictionary Text //repository.Address)) - (<| (at ! each (dictionary.of_list text.hash)) + (<| (of ! each (dictionary.of_list text.hash)) (<>.else (list)) (..plural input "deploy_repositories" ..deploy_repository))) ^configuration (is (Parser (property.List Text)) @@ -285,7 +285,7 @@ (def .public project (Parser Project) - (at <>.monad each + (of <>.monad each (dictionary.of_list text.hash) (<code>.tuple (<>.some (<>.and <code>.text ..profile))))) |