diff options
| author | Eduardo Julian | 2022-03-14 18:27:37 -0400 |
|---|---|---|
| committer | Eduardo Julian | 2022-03-14 18:27:37 -0400 |
| commit | 41495e32d3f5f88b5f189f48dd4fdbfa883c6ac0 (patch) | |
| tree | 7a561e83768d5ac4eb08855858dde38d2987fc46 /stdlib/source/test/aedifex/parser.lux | |
| parent | 62299ecdc93b39f6a22b1f89779f55dfa735fb3c (diff) | |
De-sigil-ification: >
Diffstat (limited to 'stdlib/source/test/aedifex/parser.lux')
| -rw-r--r-- | stdlib/source/test/aedifex/parser.lux | 29 |
1 files changed, 15 insertions, 14 deletions
diff --git a/stdlib/source/test/aedifex/parser.lux b/stdlib/source/test/aedifex/parser.lux index 1d3168d93..f529c2d0a 100644 --- a/stdlib/source/test/aedifex/parser.lux +++ b/stdlib/source/test/aedifex/parser.lux @@ -6,7 +6,7 @@ [monad {"+" do}] [hash {"+" Hash}]] [control - [pipe {"+" case>}] + ["[0]" pipe] ["[0]" try] [parser ["<[0]>" code]]] @@ -84,16 +84,17 @@ //format.project list (<code>.result /.project) - (case> {try.#Success actual} - (|> expected - ..with_empty_profile - dictionary.entries - (list#each (function (_ [name profile]) - [name (|> profile - ..with_default_sources - ..with_default_repository)])) - (dictionary.of_list text.hash) - (# //project.equivalence = actual)) - - {try.#Failure error} - false)))))) + (pipe.case + {try.#Success actual} + (|> expected + ..with_empty_profile + dictionary.entries + (list#each (function (_ [name profile]) + [name (|> profile + ..with_default_sources + ..with_default_repository)])) + (dictionary.of_list text.hash) + (# //project.equivalence = actual)) + + {try.#Failure error} + false)))))) |