From e00ba096c8837abe85d366e0c1293c09dbe84d81 Mon Sep 17 00:00:00 2001
From: Eduardo Julian
Date: Wed, 18 Aug 2021 03:29:15 -0400
Subject: Some bug fixes.

---
 stdlib/source/program/aedifex.lux | 36 +++++++++++++++++-------------------
 1 file changed, 17 insertions(+), 19 deletions(-)

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

diff --git a/stdlib/source/program/aedifex.lux b/stdlib/source/program/aedifex.lux
index 05aee240b..4dd110551 100644
--- a/stdlib/source/program/aedifex.lux
+++ b/stdlib/source/program/aedifex.lux
@@ -66,7 +66,7 @@
 
 (def: repositories
   (-> /.Profile (List (Repository Async)))
-  (|>> (get@ #/.repositories)
+  (|>> (value@ #/.repositories)
        set.list
        (list\map (|>> (/repository/remote.repository http.default #.None) /repository.async))))
 
@@ -165,20 +165,21 @@
 
                 (#/cli.Deploy repository identity)
                 (..command
-                 (case [(get@ #/.identity profile)
-                        (dictionary.value repository (get@ #/.deploy_repositories profile))]
-                   [(#.Some artifact) (#.Some repository)]
-                   (/command/deploy.do! console
-                                        (/repository.async (/repository/remote.repository http.default (#.Some identity) repository))
-                                        (file.async file.default)
-                                        artifact
-                                        profile)
-
-                   [#.None _]
-                   (async\in (exception.except /.no_identity []))
-
-                   [_ #.None]
-                   (async\in (exception.except ..cannot_find_repository [repository (get@ #/.deploy_repositories profile)]))))
+                 (case (value@ #/.identity profile)
+                   (#.Some artifact)
+                   (case (dictionary.value repository (value@ #/.deploy_repositories profile))
+                     (#.Some repository)
+                     (/command/deploy.do! console
+                                          (/repository.async (/repository/remote.repository http.default (#.Some identity) repository))
+                                          (file.async file.default)
+                                          artifact
+                                          profile)
+                     
+                     #.None
+                     (async\in (exception.except ..cannot_find_repository [repository (value@ #/.deploy_repositories profile)])))
+                   
+                   #.None
+                   (async\in (exception.except /.no_identity []))))
                 
                 #/cli.Dependencies
                 (..command
@@ -207,8 +208,5 @@
                     (..command
                      (case auto
                        #/cli.Build (..with_dependencies program console (/command/auto.do! /command/auto.delay watcher /command/build.do!) profile)
-                       #/cli.Test (..with_dependencies program console (/command/auto.do! /command/auto.delay watcher /command/test.do!) profile)))))
-
-                _
-                (undefined)))
+                       #/cli.Test (..with_dependencies program console (/command/auto.do! /command/auto.delay watcher /command/test.do!) profile)))))))
             ))))))
-- 
cgit v1.2.3