aboutsummaryrefslogtreecommitdiff
path: root/stdlib/source/program/aedifex
diff options
context:
space:
mode:
Diffstat (limited to 'stdlib/source/program/aedifex')
-rw-r--r--stdlib/source/program/aedifex/command/auto.lux2
-rw-r--r--stdlib/source/program/aedifex/command/build.lux4
-rw-r--r--stdlib/source/program/aedifex/command/clean.lux2
-rw-r--r--stdlib/source/program/aedifex/dependency/resolution.lux10
-rw-r--r--stdlib/source/program/aedifex/hash.lux6
5 files changed, 12 insertions, 12 deletions
diff --git a/stdlib/source/program/aedifex/command/auto.lux b/stdlib/source/program/aedifex/command/auto.lux
index d447bfe1d..e3cfaac74 100644
--- a/stdlib/source/program/aedifex/command/auto.lux
+++ b/stdlib/source/program/aedifex/command/auto.lux
@@ -60,7 +60,7 @@
(do [! ///action.monad]
[_ (monad.each ! (# watcher start watch.modification) targets)
_ <call>]
- (loop [_ []]
+ (loop (again [_ []])
(do !
[_ (..pause delay)
events (# watcher poll [])]
diff --git a/stdlib/source/program/aedifex/command/build.lux b/stdlib/source/program/aedifex/command/build.lux
index ed65518e4..4538a2834 100644
--- a/stdlib/source/program/aedifex/command/build.lux
+++ b/stdlib/source/program/aedifex/command/build.lux
@@ -147,8 +147,8 @@
text.equivalence)
(def: (< left right)
- (loop [left (text.all_split_by ..version_separator left)
- right (text.all_split_by ..version_separator right)]
+ (loop (again [left (text.all_split_by ..version_separator left)
+ right (text.all_split_by ..version_separator right)])
(case [left right]
[{.#Item leftH leftT} {.#Item rightH rightT}]
(if (text#= leftH rightH)
diff --git a/stdlib/source/program/aedifex/command/clean.lux b/stdlib/source/program/aedifex/command/clean.lux
index 34ed21042..16bfce404 100644
--- a/stdlib/source/program/aedifex/command/clean.lux
+++ b/stdlib/source/program/aedifex/command/clean.lux
@@ -37,7 +37,7 @@
? (# fs directory? target)
_ (let [! ///action.monad]
(if ?
- (loop [root target]
+ (loop (again [root target])
(do !
[_ (..clean_files! fs root)
_ (|> root
diff --git a/stdlib/source/program/aedifex/dependency/resolution.lux b/stdlib/source/program/aedifex/dependency/resolution.lux
index 45d275527..ea030b6de 100644
--- a/stdlib/source/program/aedifex/dependency/resolution.lux
+++ b/stdlib/source/program/aedifex/dependency/resolution.lux
@@ -203,11 +203,11 @@
(Async [(List Dependency)
(List Dependency)
Resolution]))
- (loop [repositories repositories
- successes (is (List Dependency) (list))
- failures (is (List Dependency) (list))
- dependencies dependencies
- resolution resolution]
+ (loop (again [repositories repositories
+ successes (is (List Dependency) (list))
+ failures (is (List Dependency) (list))
+ dependencies dependencies
+ resolution resolution])
(case dependencies
{.#End}
(# async.monad in
diff --git a/stdlib/source/program/aedifex/hash.lux b/stdlib/source/program/aedifex/hash.lux
index e0548920f..5adf44a9e 100644
--- a/stdlib/source/program/aedifex/hash.lux
+++ b/stdlib/source/program/aedifex/hash.lux
@@ -123,9 +123,9 @@
(-> Text (Try (Hash h)))))
(let [hash_size (..hash_size encoded)]
(if (n.= size hash_size)
- (loop [input encoded
- chunk 0
- output (binary.empty hash_size)]
+ (loop (again [input encoded
+ chunk 0
+ output (binary.empty hash_size)])
(let [index (n.* chunk i64.bytes_per_i64)]
(case (text.split_at ..hex_per_chunk input)
{.#Some [head tail]}