aboutsummaryrefslogtreecommitdiff
path: root/stdlib/source/program/aedifex/parser.lux
diff options
context:
space:
mode:
authorEduardo Julian2022-03-16 08:37:23 -0400
committerEduardo Julian2022-03-16 08:37:23 -0400
commitbf53ee92fc3c33a4885aa227e55d24f7ba3cb2c4 (patch)
tree49683a62ae8e110c62b42a9a6386bb2ddb3c47c6 /stdlib/source/program/aedifex/parser.lux
parentd710d9f4fc098e7c243c8a5f23cd42683f13e07f (diff)
De-sigil-ification: prefix :
Diffstat (limited to 'stdlib/source/program/aedifex/parser.lux')
-rw-r--r--stdlib/source/program/aedifex/parser.lux78
1 files changed, 39 insertions, 39 deletions
diff --git a/stdlib/source/program/aedifex/parser.lux b/stdlib/source/program/aedifex/parser.lux
index 097373529..7b1447b8c 100644
--- a/stdlib/source/program/aedifex/parser.lux
+++ b/stdlib/source/program/aedifex/parser.lux
@@ -202,51 +202,51 @@
(dictionary.of_list text.hash)
(<code>.tuple (<>.some (<>.and <code>.text
<code>.any))))
- .let [^parents (: (Parser (List /.Name))
- (<>.else (list)
- (..plural input "parents" <code>.text)))
- ^identity (: (Parser (Maybe Artifact))
- (<>.maybe
- (..singular input "identity" ..artifact)))
- ^info (: (Parser (Maybe /.Info))
- (<>.maybe
- (..singular input "info" ..info)))
- ^repositories (: (Parser (Set //repository.Address))
- (|> (..plural input "repositories" ..repository)
- (# ! each (set.of_list text.hash))
- (<>.else (set.empty text.hash))
- (# ! each (set.has /.default_repository))))
- ^dependencies (: (Parser (Set //dependency.Dependency))
- (|> (..plural input "dependencies" ..dependency)
- (# ! each (set.of_list //dependency.hash))
- (<>.else (set.empty //dependency.hash))))
+ .let [^parents (is (Parser (List /.Name))
+ (<>.else (list)
+ (..plural input "parents" <code>.text)))
+ ^identity (is (Parser (Maybe Artifact))
+ (<>.maybe
+ (..singular input "identity" ..artifact)))
+ ^info (is (Parser (Maybe /.Info))
+ (<>.maybe
+ (..singular input "info" ..info)))
+ ^repositories (is (Parser (Set //repository.Address))
+ (|> (..plural input "repositories" ..repository)
+ (# ! each (set.of_list text.hash))
+ (<>.else (set.empty text.hash))
+ (# ! each (set.has /.default_repository))))
+ ^dependencies (is (Parser (Set //dependency.Dependency))
+ (|> (..plural input "dependencies" ..dependency)
+ (# ! each (set.of_list //dependency.hash))
+ (<>.else (set.empty //dependency.hash))))
^lux (|> ..dependency
(..singular input //format.lux_compiler_label)
(<>.else /.default_compiler))
^compilers (|> ..compiler
(..plural input "compilers")
(<>.else (list)))
- ^sources (: (Parser (Set /.Source))
- (|> (..plural input "sources" ..source)
- (# ! each (set.of_list text.hash))
- (<>.else (set.of_list text.hash (list /.default_source)))))
- ^target (: (Parser /.Target)
- (|> ..target
- (..singular input "target")
- (<>.else /.default_target)))
- ^program (: (Parser (Maybe Module))
- (<>.maybe
- (..singular input "program" ..module)))
- ^test (: (Parser (Maybe Module))
- (<>.maybe
- (..singular input "test" ..module)))
- ^deploy_repositories (: (Parser (Dictionary Text //repository.Address))
- (<| (# ! each (dictionary.of_list text.hash))
- (<>.else (list))
- (..plural input "deploy_repositories" ..deploy_repository)))
- ^configuration (: (Parser (PList Text))
- (<| (<>.else (list))
- (..plural input "configuration" ..configuration/1)))
+ ^sources (is (Parser (Set /.Source))
+ (|> (..plural input "sources" ..source)
+ (# ! each (set.of_list text.hash))
+ (<>.else (set.of_list text.hash (list /.default_source)))))
+ ^target (is (Parser /.Target)
+ (|> ..target
+ (..singular input "target")
+ (<>.else /.default_target)))
+ ^program (is (Parser (Maybe Module))
+ (<>.maybe
+ (..singular input "program" ..module)))
+ ^test (is (Parser (Maybe Module))
+ (<>.maybe
+ (..singular input "test" ..module)))
+ ^deploy_repositories (is (Parser (Dictionary Text //repository.Address))
+ (<| (# ! each (dictionary.of_list text.hash))
+ (<>.else (list))
+ (..plural input "deploy_repositories" ..deploy_repository)))
+ ^configuration (is (Parser (PList Text))
+ (<| (<>.else (list))
+ (..plural input "configuration" ..configuration/1)))
^java (|> ..runtime
(..singular input "java")
(<>.else //runtime.default_java))