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/program/aedifex/command/clean.lux | 18 +++++++++---------
 1 file changed, 9 insertions(+), 9 deletions(-)

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

diff --git a/stdlib/source/program/aedifex/command/clean.lux b/stdlib/source/program/aedifex/command/clean.lux
index 3187376e8..7798a2006 100644
--- a/stdlib/source/program/aedifex/command/clean.lux
+++ b/stdlib/source/program/aedifex/command/clean.lux
@@ -22,9 +22,9 @@
   (-> (file.System Async) Path (Async (Try Any)))
   (do [! ///action.monad]
     [_ (|> root
-           (# fs directory_files)
-           (# ! each (monad.each ! (# fs delete)))
-           (# ! conjoint))]
+           (at fs directory_files)
+           (at ! each (monad.each ! (at fs delete)))
+           (at ! conjoint))]
     (in [])))
 
 (def: .public success
@@ -35,16 +35,16 @@
   (-> (Console Async) (file.System Async) (Command Any))
   (do [! async.monad]
     [.let [target (the ///.#target profile)]
-     ? (# fs directory? target)
+     ? (at fs directory? target)
      _ (let [! ///action.monad]
          (if ?
            (loop (again [root target])
              (do !
                [_ (..clean_files! fs root)
                 _ (|> root
-                      (# fs sub_directories)
-                      (# ! each (monad.each ! again))
-                      (# ! conjoint))]
-               (# fs delete root)))
-           (# ! in [])))]
+                      (at fs sub_directories)
+                      (at ! each (monad.each ! again))
+                      (at ! conjoint))]
+               (at fs delete root)))
+           (at ! in [])))]
     (console.write_line (..success target) console)))
-- 
cgit v1.2.3