From 2b909032e7a0bd10cd7db52067d2fb701bfa95e5 Mon Sep 17 00:00:00 2001
From: Eduardo Julian
Date: Tue, 6 Jul 2021 21:34:21 -0400
Subject: Simplified the API for file-system operations.

---
 stdlib/source/program/aedifex/command/install.lux | 13 +++++++++----
 1 file changed, 9 insertions(+), 4 deletions(-)

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

diff --git a/stdlib/source/program/aedifex/command/install.lux b/stdlib/source/program/aedifex/command/install.lux
index 4b6b96e3e..64830c4d2 100644
--- a/stdlib/source/program/aedifex/command/install.lux
+++ b/stdlib/source/program/aedifex/command/install.lux
@@ -21,7 +21,7 @@
      ["." xml]]]
    [world
     [program (#+ Program)]
-    ["." file (#+ Path File)]
+    ["." file]
     ["." console (#+ Console)]]]
   [program
    [compositor
@@ -49,13 +49,18 @@
 (def: #export failure
   "Failure: No 'identity' defined for the project.")
 
-(def: #export (do! console system repository profile)
+(def: #export (do! console fs repository profile)
   (-> (Console Promise) (file.System Promise) (Repository Promise) (Command Any))
   (case (get@ #/.identity profile)
     (#.Some identity)
     (do ///action.monad
-      [package (export.library system (set.to_list (get@ #/.sources profile)))
-       pom (\ promise.monad wrap (///pom.write profile))
+      [package (|> profile
+                   (get@ #/.sources)
+                   set.to_list
+                   (export.library fs))
+       pom (|> profile
+               ///pom.write
+               (\ promise.monad wrap))
        _ (///dependency/deployment.one repository
                                        [identity ///artifact/type.lux_library]
                                        (let [pom_data (|> pom
-- 
cgit v1.2.3