diff options
Diffstat (limited to 'stdlib/source/program')
| -rw-r--r-- | stdlib/source/program/aedifex/command/auto.lux | 2 | ||||
| -rw-r--r-- | stdlib/source/program/aedifex/command/build.lux | 4 | ||||
| -rw-r--r-- | stdlib/source/program/aedifex/command/clean.lux | 2 | ||||
| -rw-r--r-- | stdlib/source/program/aedifex/dependency/resolution.lux | 10 | ||||
| -rw-r--r-- | stdlib/source/program/aedifex/hash.lux | 6 | ||||
| -rw-r--r-- | stdlib/source/program/compositor.lux | 6 |
6 files changed, 15 insertions, 15 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]} diff --git a/stdlib/source/program/compositor.lux b/stdlib/source/program/compositor.lux index a6e31ec08..aaf9e27f4 100644 --- a/stdlib/source/program/compositor.lux +++ b/stdlib/source/program/compositor.lux @@ -116,9 +116,9 @@ (-> (file.System Async) (List file.Path) (Async (Try (Dictionary file.Path Binary)))) (do [! (try.with async.monad)] [] - (loop [pending host_dependencies - output (is (Dictionary file.Path Binary) - (dictionary.empty text.hash))] + (loop (again [pending host_dependencies + output (is (Dictionary file.Path Binary) + (dictionary.empty text.hash))]) (case pending {.#End} (in output) |