diff options
author | Eduardo Julian | 2021-09-05 03:25:28 -0400 |
---|---|---|
committer | Eduardo Julian | 2021-09-05 03:25:28 -0400 |
commit | 54c0e9c7397908eeddf5fbed9b193e25648fb253 (patch) | |
tree | 2c6441fb4ab583f4fbdfb13d89cbac69f3f8ba7c /stdlib/source/program/aedifex/parser.lux | |
parent | 3435766132d3d434622eecae5fb80f5db33bcab4 (diff) |
De-taggification | part 3
Diffstat (limited to '')
-rw-r--r-- | stdlib/source/program/aedifex/parser.lux | 29 |
1 files changed, 11 insertions, 18 deletions
diff --git a/stdlib/source/program/aedifex/parser.lux b/stdlib/source/program/aedifex/parser.lux index 0284d3ced..315021712 100644 --- a/stdlib/source/program/aedifex/parser.lux +++ b/stdlib/source/program/aedifex/parser.lux @@ -84,22 +84,22 @@ (do {! <>.monad} [input (\ ! each (dictionary.of_list text.hash) - (<code>.tuple (<>.some (<>.and <code>.local_tag + (<code>.tuple (<>.some (<>.and <code>.text <code>.any))))] ($_ <>.and (..singular input "name" ..name) (..singular input "url" ..url) (<>.else #/.Repo (..singular input "type" - (<>.or (<code>.this! (' #repo)) - (<code>.this! (' #manual)))))))) + (<>.or (<code>.this! (' "repo")) + (<code>.this! (' "manual")))))))) (def: organization (Parser /.Organization) (do {! <>.monad} [input (\ ! each (dictionary.of_list text.hash) - (<code>.tuple (<>.some (<>.and <code>.local_tag + (<code>.tuple (<>.some (<>.and <code>.text <code>.any))))] ($_ <>.and (..singular input "name" ..name) @@ -110,7 +110,7 @@ (do {! <>.monad} [input (\ ! each (dictionary.of_list text.hash) - (<code>.tuple (<>.some (<>.and <code>.local_tag + (<code>.tuple (<>.some (<>.and <code>.text <code>.any))))] ($_ <>.and (..singular input "name" ..name) @@ -127,7 +127,7 @@ (do {! <>.monad} [input (\ ! each (dictionary.of_list text.hash) - (<code>.tuple (<>.some (<>.and <code>.local_tag + (<code>.tuple (<>.some (<>.and <code>.text <code>.any))))] ($_ <>.and (<>.maybe (..singular input "url" ..url)) @@ -183,7 +183,7 @@ (do {! <>.monad} [input (\ ! each (dictionary.of_list text.hash) - (<code>.tuple (<>.some (<>.and <code>.local_tag + (<code>.tuple (<>.some (<>.and <code>.text <code>.any)))) .let [^parents (: (Parser (List /.Name)) (<>.else (list) @@ -260,14 +260,7 @@ (def: .public project (Parser Project) - (let [default_profile (: (Parser Project) - (\ <>.monad each - (|>> [/.default] (list) (dictionary.of_list text.hash)) - ..profile)) - multi_profile (: (Parser Project) - (\ <>.monad each - (dictionary.of_list text.hash) - (<code>.tuple (<>.many (<>.and <code>.text - ..profile)))))] - (<>.either multi_profile - default_profile))) + (\ <>.monad each + (dictionary.of_list text.hash) + (<code>.tuple (<>.many (<>.and <code>.text + ..profile))))) |