From 7db42ab1b9d3c764772ca63c74bf44bb2b8b8325 Mon Sep 17 00:00:00 2001
From: Eduardo Julian
Date: Sat, 9 Jul 2022 14:35:38 -0400
Subject: First-class programs instead of having a "lux program" extension.

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

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

diff --git a/stdlib/source/program/aedifex/command/deploy.lux b/stdlib/source/program/aedifex/command/deploy.lux
index c579f165a..c4dfe7c7d 100644
--- a/stdlib/source/program/aedifex/command/deploy.lux
+++ b/stdlib/source/program/aedifex/command/deploy.lux
@@ -8,7 +8,7 @@
     [concurrency
      [async (.only Async)]]]
    [world
-    [program (.only Program)]
+    [environment (.only Environment)]
     [shell (.only Shell)]
     ["[0]" file]
     ["[0]" console (.only Console)]]]]
@@ -26,11 +26,11 @@
 (def .public success
   "Successfully deployed the project.")
 
-(def .public (do! program shell console local remote fs artifact profile)
-  (-> (Program Async) (Shell Async) (Console Async) (Repository Async) (Repository Async) (file.System Async) Artifact (Command Any))
+(def .public (do! environment shell console local remote fs artifact profile)
+  (-> (Environment Async) (Shell Async) (Console Async) (Repository Async) (Repository Async) (file.System Async) Artifact (Command Any))
   (do [! ///action.monad]
     [_ (if (/snapshot.snapshot? artifact)
          (/snapshot.do! console remote fs artifact profile)
-         (/release.do! program shell console local remote fs artifact profile))]
+         (/release.do! environment shell console local remote fs artifact profile))]
     (is (Async (Try Any))
         (console.write_line ..success console))))
-- 
cgit v1.2.3