From 8c3a1afab9efeb86e2f53d743551fc689fbad257 Mon Sep 17 00:00:00 2001
From: Eduardo Julian
Date: Sun, 12 Jun 2022 13:33:48 -0400
Subject: De-sigil-ification: suffix : [Part 4]

---
 stdlib/source/program/aedifex/command/build.lux | 46 ++++++++++++-------------
 1 file changed, 23 insertions(+), 23 deletions(-)

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

diff --git a/stdlib/source/program/aedifex/command/build.lux b/stdlib/source/program/aedifex/command/build.lux
index 98fa73d75..dfb566c11 100644
--- a/stdlib/source/program/aedifex/command/build.lux
+++ b/stdlib/source/program/aedifex/command/build.lux
@@ -140,30 +140,30 @@
 (def: version_separator
   ".")
 
-(implementation: version_order
+(def: version_order
   (Order Version)
-
-  (def: equivalence
-    text.equivalence)
-
-  (def: (< left right)
-    (loop (again [left (text.all_split_by ..version_separator left)
-                  right (text.all_split_by ..version_separator right)])
-      (case [left right]
-        [{.#Item leftH leftT} {.#Item rightH rightT}]
-        (if (text#= leftH rightH)
-          (again leftT rightT)
-          (or (n.< (text.size leftH) (text.size rightH))
-              (text#< leftH rightH)))
-
-        [{.#Item leftH leftT} {.#End}]
-        false
-
-        [{.#End} {.#Item rightH rightT}]
-        true
-
-        [{.#End} {.#End}]
-        false))))
+  (implementation
+   (def: equivalence
+     text.equivalence)
+
+   (def: (< left right)
+     (loop (again [left (text.all_split_by ..version_separator left)
+                   right (text.all_split_by ..version_separator right)])
+       (case [left right]
+         [{.#Item leftH leftT} {.#Item rightH rightT}]
+         (if (text#= leftH rightH)
+           (again leftT rightT)
+           (or (n.< (text.size leftH) (text.size rightH))
+               (text#< leftH rightH)))
+
+         [{.#Item leftH leftT} {.#End}]
+         false
+
+         [{.#End} {.#Item rightH rightT}]
+         true
+
+         [{.#End} {.#End}]
+         false)))))
 
 (def: .public (host_dependencies fs home)
   (All (_ !) (-> (file.System !) Path Resolution (List Path)))
-- 
cgit v1.2.3