aboutsummaryrefslogtreecommitdiff
path: root/stdlib/source/program/aedifex/repository.lux
diff options
context:
space:
mode:
authorEduardo Julian2021-09-12 15:39:55 -0400
committerEduardo Julian2021-09-12 15:39:55 -0400
commit2dbbaaec93a53f8dd0b96a0028b9cf125c9066cd (patch)
tree14bc8b5abe09b46ef005c3ff7cf132f1d98ddf0d /stdlib/source/program/aedifex/repository.lux
parentdda05bca0956af5e5b3875c4cc36e61aa04772e4 (diff)
Re-named \ => # && \\ => ##
Diffstat (limited to 'stdlib/source/program/aedifex/repository.lux')
-rw-r--r--stdlib/source/program/aedifex/repository.lux12
1 files changed, 6 insertions, 6 deletions
diff --git a/stdlib/source/program/aedifex/repository.lux b/stdlib/source/program/aedifex/repository.lux
index 365195828..8aefc9dc6 100644
--- a/stdlib/source/program/aedifex/repository.lux
+++ b/stdlib/source/program/aedifex/repository.lux
@@ -28,12 +28,12 @@
(-> (Repository IO) (Repository Async))
(implementation
(def: description
- (\ repository description))
+ (# repository description))
(def: (download uri)
- (async.future (\ repository download uri)))
+ (async.future (# repository download uri)))
(def: (upload uri content)
- (async.future (\ repository upload uri content)))
+ (async.future (# repository upload uri content)))
))
(type: .public (Mock s)
@@ -50,13 +50,13 @@
(let [state (stm.var init)]
(implementation
(def: description
- (\ mock the_description))
+ (# mock the_description))
(def: (download uri)
(stm.commit!
(do [! stm.monad]
[|state| (stm.read state)]
- (case (\ mock on_download uri |state|)
+ (case (# mock on_download uri |state|)
{try.#Success [|state| output]}
(do !
[_ (stm.write |state| state)]
@@ -69,7 +69,7 @@
(stm.commit!
(do [! stm.monad]
[|state| (stm.read state)]
- (case (\ mock on_upload uri content |state|)
+ (case (# mock on_upload uri content |state|)
{try.#Success |state|}
(do !
[_ (stm.write |state| state)]