diff options
Diffstat (limited to 'stdlib/source/test/aedifex/command/clean.lux')
| -rw-r--r-- | stdlib/source/test/aedifex/command/clean.lux | 14 |
1 files changed, 7 insertions, 7 deletions
diff --git a/stdlib/source/test/aedifex/command/clean.lux b/stdlib/source/test/aedifex/command/clean.lux index b33d6d911..6ead0475f 100644 --- a/stdlib/source/test/aedifex/command/clean.lux +++ b/stdlib/source/test/aedifex/command/clean.lux @@ -45,7 +45,7 @@ (def (files prefix) (-> Path (Random (List [Path Binary]))) (do [! random.monad] - [count (at ! each (n.% 10) random.nat) + [count (of ! each (n.% 10) random.nat) names (random.set text.hash count ..node_name) contents (random.list count ($binary.random 100))] (in (list.zipped_2 (list#each (|>> (format prefix)) (set.list names)) @@ -53,7 +53,7 @@ (def (create_file! fs [path content]) (-> (file.System Async) [Path Binary] (Async (Try Any))) - (at fs write path content)) + (of fs write path content)) (def (create_directory! fs path files) (-> (file.System Async) Path (List [Path Binary]) (Async (Try Any))) @@ -65,11 +65,11 @@ (def (directory_exists? fs) (-> (file.System Async) Path (Async (Try Bit))) - (|>> (at fs directory?) (try.lifted async.monad))) + (|>> (of fs directory?) (try.lifted async.monad))) (def (file_exists? fs) (-> (file.System Async) Path (Async (Try Bit))) - (|>> (at fs file?) (try.lifted async.monad))) + (|>> (of fs file?) (try.lifted async.monad))) (def (assets_exist? fs directory_path files) (-> (file.System Async) Path (List [Path Binary]) (Async (Try Bit))) @@ -89,8 +89,8 @@ [context ..node_name target ..node_name sub ..node_name - .let [fs (file.mock (at file.default separator)) - / (at fs separator) + .let [fs (file.mock (of file.default separator)) + / (of fs separator) target_path (format context / target) sub_path (format target_path / sub)] direct_files (..files (format target_path /)) @@ -109,7 +109,7 @@ context_exists!/post (..directory_exists? fs context) target_exists!/post (..assets_exist? fs target_path direct_files) sub_exists!/post (..assets_exist? fs sub_path sub_files) - logging (at console read_line [])] + logging (of console read_line [])] (in (and (and context_exists!/pre context_exists!/post) (and target_exists!/pre |