From f9e33ae96aec4741385a576719786092c9e68043 Mon Sep 17 00:00:00 2001
From: Eduardo Julian
Date: Sat, 4 Jun 2022 19:34:42 -0400
Subject: De-sigil-ification: #

---
 stdlib/source/test/aedifex/command/clean.lux | 14 +++++++-------
 1 file changed, 7 insertions(+), 7 deletions(-)

(limited to 'stdlib/source/test/aedifex/command/clean.lux')

diff --git a/stdlib/source/test/aedifex/command/clean.lux b/stdlib/source/test/aedifex/command/clean.lux
index e7bf81855..4ead63063 100644
--- a/stdlib/source/test/aedifex/command/clean.lux
+++ b/stdlib/source/test/aedifex/command/clean.lux
@@ -43,7 +43,7 @@
 (def: (files prefix)
   (-> Path (Random (List [Path Binary])))
   (do [! random.monad]
-    [count (# ! each (n.% 10) random.nat)
+    [count (at ! 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))
@@ -51,7 +51,7 @@
 
 (def: (create_file! fs [path content])
   (-> (file.System Async) [Path Binary] (Async (Try Any)))
-  (# fs write path content))
+  (at fs write path content))
 
 (def: (create_directory! fs path files)
   (-> (file.System Async) Path (List [Path Binary]) (Async (Try Any)))
@@ -63,11 +63,11 @@
 
 (def: (directory_exists? fs)
   (-> (file.System Async) Path (Async (Try Bit)))
-  (|>> (# fs directory?) (try.lifted async.monad)))
+  (|>> (at fs directory?) (try.lifted async.monad)))
 
 (def: (file_exists? fs)
   (-> (file.System Async) Path (Async (Try Bit)))
-  (|>> (# fs file?) (try.lifted async.monad)))
+  (|>> (at fs file?) (try.lifted async.monad)))
 
 (def: (assets_exist? fs directory_path files)
   (-> (file.System Async) Path (List [Path Binary]) (Async (Try Bit)))
@@ -87,8 +87,8 @@
         [context ..node_name
          target ..node_name
          sub ..node_name
-         .let [fs (file.mock (# file.default separator))
-               / (# fs separator)
+         .let [fs (file.mock (at file.default separator))
+               / (at fs separator)
                target_path (format context / target)
                sub_path (format target_path / sub)]
          direct_files (..files (format target_path /))
@@ -107,7 +107,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 (# console read_line [])]
+                          logging (at console read_line [])]
                          (in (and (and context_exists!/pre
                                        context_exists!/post)
                                   (and target_exists!/pre
-- 
cgit v1.2.3