Extract print-errors-without-status-code to errors module

Author: strika

src/commands.janet

@@ -12,6 +12,7 @@
 (import ./commands/stats)
 
 (import ./date :as d)
+(import ./errors)
 (import ./schedule_parser)
 
 # backup command needs to be first
@@ -27,10 +28,6 @@
                schedule_tasks/build-command
                stats/build-command])
 
-(defn- print-errors [errors]
-  (loop [error :in errors]
-    (print error)))
-
 ## —————————————————————————————————————————————————————————————————————————————————————————————————
 ## Public Interface
 
@@ -51,7 +48,7 @@
   (def errors (filter identity (flatten (map (fn [c] (c :errors)) commands))))
   (if (any? errors)
     (do
-      (print-errors errors)
+      (errors/print-errors-without-status-code errors)
       plan)
     (reduce (fn [new-plan command-and-arguments]
               (def command (first (command-and-arguments :command)))

src/errors.janet

@@ -13,6 +13,11 @@
 (defn format-command-errors [command errors]
   (map (fn [error] (string command " " (string/ascii-lower error) ".")) errors))
 
+# TODO: This function should go away.
+(defn print-errors-without-status-code [errors]
+  (loop [error :in errors]
+    (print error)))
+
 (defn print-errors [errors exit-status-code]
   (each error errors (print (string error ".")))
   (os/exit exit-status-code))