diff options
| author | Eduardo Julian | 2021-09-05 22:52:26 -0400 |
|---|---|---|
| committer | Eduardo Julian | 2021-09-05 22:52:26 -0400 |
| commit | 132ffdae1add622c8a3c6065d7730a8fe8ea5e78 (patch) | |
| tree | 540310f190007d192b892db2d0a520d17b73ad48 /stdlib/source/program/aedifex/pom.lux | |
| parent | 09e2747bf8c6dcdc1d7318f2490f0de37d77b39f (diff) | |
Changed the syntax of do/be's (co)monad bindings.
Diffstat (limited to 'stdlib/source/program/aedifex/pom.lux')
| -rw-r--r-- | stdlib/source/program/aedifex/pom.lux | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/stdlib/source/program/aedifex/pom.lux b/stdlib/source/program/aedifex/pom.lux index b116e45bc..87a070f08 100644 --- a/stdlib/source/program/aedifex/pom.lux +++ b/stdlib/source/program/aedifex/pom.lux @@ -156,7 +156,7 @@ (def: property_parser (Parser [Tag Text]) - (do {! <>.monad} + (do [! <>.monad] [tag <xml>.tag] (<| (<xml>.node tag) (\ ! each (|>> [tag])) @@ -164,7 +164,7 @@ (def: (dependency_parser own_version parent_version) (-> Text Text (Parser Dependency)) - (do {! <>.monad} + (do [! <>.monad] [properties (\ ! each (dictionary.of_list name.hash) (<| (<xml>.node ["" ..dependency_tag]) (<>.some ..property_parser)))] @@ -212,7 +212,7 @@ (def: .public parser (Parser /.Profile) - (do {! <>.monad} + (do [! <>.monad] [own_version (<>.else "" (<xml>.somewhere ..own_version)) parent_version (<>.else "" (<xml>.somewhere ..parent_version))] (<| (<xml>.node ["" ..project_tag]) |