From 9f039e8a0a09e0278547d697efa018cd3fd68672 Mon Sep 17 00:00:00 2001
From: Eduardo Julian
Date: Fri, 30 Jul 2021 01:12:05 -0400
Subject: More renamings.
---
stdlib/source/test/aedifex/repository/local.lux | 2 +-
stdlib/source/test/aedifex/repository/remote.lux | 8 ++++----
2 files changed, 5 insertions(+), 5 deletions(-)
(limited to 'stdlib/source/test/aedifex/repository')
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
--
cgit v1.2.3