aboutsummaryrefslogtreecommitdiff
path: root/stdlib/source/test/aedifex/repository
diff options
context:
space:
mode:
authorEduardo Julian2021-07-30 01:12:05 -0400
committerEduardo Julian2021-07-30 01:12:05 -0400
commit9f039e8a0a09e0278547d697efa018cd3fd68672 (patch)
tree0b2298edfae39efa7195fc5152d267cc25dd7fc1 /stdlib/source/test/aedifex/repository
parent54b28c1caeda08965c258411a32229be1766d47f (diff)
More renamings.
Diffstat (limited to 'stdlib/source/test/aedifex/repository')
-rw-r--r--stdlib/source/test/aedifex/repository/local.lux2
-rw-r--r--stdlib/source/test/aedifex/repository/remote.lux8
2 files changed, 5 insertions, 5 deletions
diff --git a/stdlib/source/test/aedifex/repository/local.lux b/stdlib/source/test/aedifex/repository/local.lux
index 180ea404a..eab07411f 100644
--- a/stdlib/source/test/aedifex/repository/local.lux
+++ b/stdlib/source/test/aedifex/repository/local.lux
@@ -48,5 +48,5 @@
(#try.Failure _) true)
(|> actual
(try\map (binary\= expected))
- (try.default false))))))
+ (try.else false))))))
))))
diff --git a/stdlib/source/test/aedifex/repository/remote.lux b/stdlib/source/test/aedifex/repository/remote.lux
index 5f74cab9d..cad0fe873 100644
--- a/stdlib/source/test/aedifex/repository/remote.lux
+++ b/stdlib/source/test/aedifex/repository/remote.lux
@@ -49,7 +49,7 @@
(if (|> headers
(dictionary.get "User-Agent")
(maybe\map (is? /.user_agent))
- (maybe.default false))
+ (maybe.else false))
(case [method input]
[#@http.Get #.None]
[http/status.ok
@@ -60,7 +60,7 @@
(if (|> headers
(dictionary.get "Authorization")
(maybe\map (text\= (//identity.basic_auth user password)))
- (maybe.default false))
+ (maybe.else false))
[http/status.created
{#@http.headers (http.headers (list))
#@http.body (..url_body url)}]
@@ -103,11 +103,11 @@
(try\map (\ utf8.codec decode))
try\join
(try\map (text\= (format address uri)))
- (try.default false))
+ (try.else false))
(|> (\ repo upload uri content)
io.run
(try\map (function.constant true))
- (try.default false)))))
+ (try.else false)))))
(_.cover [/.upload_failure]
(let [repo (/.repository (..good_http user password)
#.None