From d29e091e98dabb8dfcf816899ada480ecbf7e357 Mon Sep 17 00:00:00 2001
From: Eduardo Julian
Date: Wed, 23 Dec 2020 06:33:44 -0400
Subject: Refactored "export" common syntax.

---
 stdlib/source/test/aedifex/command/deploy.lux | 14 +++++++-------
 1 file changed, 7 insertions(+), 7 deletions(-)

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

diff --git a/stdlib/source/test/aedifex/command/deploy.lux b/stdlib/source/test/aedifex/command/deploy.lux
index 18045a20b..86f3e0dbb 100644
--- a/stdlib/source/test/aedifex/command/deploy.lux
+++ b/stdlib/source/test/aedifex/command/deploy.lux
@@ -48,7 +48,8 @@
       ["#." pom]
       ["#." local]
       ["#." hash]
-      ["#." repository (#+ Identity Repository)]
+      ["#." repository (#+ Repository)
+       [identity (#+ Identity)]]
       ["#." artifact (#+ Artifact)
        ["#/." extension]]]]]})
 
@@ -69,9 +70,9 @@
               (file.get-file promise.monad fs (format head (\ fs separator) head ".lux")))]
         (recur tail)))))
 
-(def: (execute! program repository fs identity artifact profile)
+(def: (execute! program repository fs artifact profile)
   (-> (Program Promise) (Repository Promise) (file.System Promise)
-      Identity Artifact ///.Profile
+      Artifact ///.Profile
       (Promise (Try Text)))
   (do promise.monad
     [home (\ program home [])]
@@ -80,7 +81,7 @@
        _ (..make-sources! fs (get@ #///.sources profile))
        _ (: (Promise (Try Path))
             (file.make-directories promise.monad fs (///local.repository fs home)))
-       _ (/.do! console repository fs identity artifact profile)]
+       _ (/.do! console repository fs artifact profile)]
       (!.use (\ console read-line) []))))
 
 (def: #export test
@@ -95,16 +96,15 @@
                          (wrap [artifact expected-pom profile])))
                      @profile.random)
          
-         identity @repository.identity
          home (random.ascii/alpha 5)
          working-directory (random.ascii/alpha 5)
-         #let [repository (///repository.mock (@repository.simulation identity)
+         #let [repository (///repository.mock @repository.simulation
                                               @repository.empty)
                fs (file.mock (\ file.default separator))
                program (program.async (program.mock environment.empty home working-directory))]]
         (wrap (do {! promise.monad}
                 [verdict (do {! ///action.monad}
-                           [logging (..execute! program repository fs identity artifact profile)
+                           [logging (..execute! program repository fs artifact profile)
                             expected-library (|> profile
                                                  (get@ #///.sources)
                                                  set.to-list
-- 
cgit v1.2.3