diff options
author | Eduardo Julian | 2022-06-12 13:33:48 -0400 |
---|---|---|
committer | Eduardo Julian | 2022-06-12 13:33:48 -0400 |
commit | 8c3a1afab9efeb86e2f53d743551fc689fbad257 (patch) | |
tree | 396b2fd29bac407544d2136a0d9e6e3b8b2c30af /stdlib/source/test/aedifex/repository | |
parent | 9c21fd1f33eb52fb971d493ad21a67036d68b841 (diff) |
De-sigil-ification: suffix : [Part 4]
Diffstat (limited to '')
-rw-r--r-- | stdlib/source/test/aedifex/repository.lux | 34 |
1 files changed, 17 insertions, 17 deletions
diff --git a/stdlib/source/test/aedifex/repository.lux b/stdlib/source/test/aedifex/repository.lux index 7766a492a..56a5c7b54 100644 --- a/stdlib/source/test/aedifex/repository.lux +++ b/stdlib/source/test/aedifex/repository.lux @@ -65,24 +65,24 @@ Version "4.5.6-NO") -(implementation: .public mock +(def: .public mock (/.Mock Store) - - (def: the_description - "@") - (def: (on_download uri state) - (case (dictionary.value uri state) - {.#Some content} - (case (binary.size content) - 0 (exception.except ..not_found [uri]) - _ {try.#Success [state content]}) - - {.#None} - (exception.except ..not_found [uri]))) - (def: (on_upload uri content state) - (if (dictionary.key? state uri) - (exception.except ..cannot_upload [uri]) - {try.#Success (dictionary.has uri content state)}))) + (implementation + (def: the_description + "@") + (def: (on_download uri state) + (case (dictionary.value uri state) + {.#Some content} + (case (binary.size content) + 0 (exception.except ..not_found [uri]) + _ {try.#Success [state content]}) + + {.#None} + (exception.except ..not_found [uri]))) + (def: (on_upload uri content state) + (if (dictionary.key? state uri) + (exception.except ..cannot_upload [uri]) + {try.#Success (dictionary.has uri content state)})))) (def: .public test Test |