Replaced kebab-case with snake_case for naming convention.

1 files changed, 4 insertions, 4 deletions

diff --git a/stdlib/source/program/aedifex/command/clean.lux b/stdlib/source/program/aedifex/command/clean.lux
index 7f942fc00..900de2cc4 100644
--- a/stdlib/source/program/aedifex/command/clean.lux
+++ b/stdlib/source/program/aedifex/command/clean.lux
@@ -16,7 +16,7 @@
    ["#" profile]
    ["#." action (#+ Action)]])
 
-(def: (clean-files! root)
+(def: (clean_files! root)
   (-> (Directory Promise) (Promise (Try Any)))
   (do {! ///action.monad}
     [nodes (: (Promise (Try (List (File Promise))))
@@ -41,12 +41,12 @@
                  (!.use (\ fs directory) target))
        _ (loop [root target]
            (do !
-             [_ (..clean-files! root)
+             [_ (..clean_files! root)
               subs (: (Promise (Try (List (Directory Promise))))
                       (!.use (\ root directories) []))
               _ (monad.map ! recur subs)]
              (!.use (\ root discard) [])))]
-      (console.write-line ..success console))
+      (console.write_line ..success console))
     
     #.None
-    (console.write-line ..failure console)))
+    (console.write_line ..failure console)))