From cb8f2b36352948108446c7e3b270faa97589bf7a Mon Sep 17 00:00:00 2001
From: Eduardo Julian
Date: Sun, 25 Oct 2020 23:16:14 -0400
Subject: Some small refactoring.

---
 stdlib/source/program/aedifex.lux | 10 +++++-----
 1 file changed, 5 insertions(+), 5 deletions(-)

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

diff --git a/stdlib/source/program/aedifex.lux b/stdlib/source/program/aedifex.lux
index 76db24a47..485277d88 100644
--- a/stdlib/source/program/aedifex.lux
+++ b/stdlib/source/program/aedifex.lux
@@ -50,7 +50,7 @@
 (def: (install! profile)
   (-> /.Profile (Promise Any))
   (do promise.monad
-    [outcome (/local.install (file.async file.system) profile)]
+    [outcome (/local.install (file.async file.default) profile)]
     (wrap (case outcome
             (#try.Success _)
             (log! "Successfully installed locally!")
@@ -63,14 +63,14 @@
   (-> /.Profile (Promise Any))
   (do promise.monad
     [outcome (do (try.with promise.monad)
-               [cache (/local.all-cached (file.async file.system)
+               [cache (/local.all-cached (file.async file.default)
                                          (set.to-list (get@ #/.dependencies profile))
                                          /dependency.empty)
                 resolution (promise.future
                             (/dependency.resolve-all (set.to-list (get@ #/.repositories profile))
                                                      (set.to-list (get@ #/.dependencies profile))
                                                      cache))]
-               (/local.cache-all (file.async file.system)
+               (/local.cache-all (file.async file.default)
                                  resolution))]
     (wrap (case outcome
             (#try.Success _)
@@ -82,12 +82,12 @@
 
 (program: [{[profile operation] /cli.command}]
   (do {@ io.monad}
-    [?profile (/input.read io.monad file.system profile)]
+    [?profile (/input.read io.monad file.default profile)]
     (case ?profile
       (#try.Success profile)
       (case operation
         #/cli.POM
-        (exec (/command/pom.do! (file.async file.system) profile)
+        (exec (/command/pom.do! (file.async file.default) profile)
           (wrap []))
         
         #/cli.Dependencies
-- 
cgit v1.2.3