From e53c1a090eb9cfac3cb23d10d981648d02518ed1 Mon Sep 17 00:00:00 2001
From: Eduardo Julian
Date: Fri, 13 Aug 2021 04:18:57 -0400
Subject: Made program: specify its bindings the same way as syntax:.

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

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

diff --git a/stdlib/source/program/aedifex.lux b/stdlib/source/program/aedifex.lux
index e6dae7bbc..05aee240b 100644
--- a/stdlib/source/program/aedifex.lux
+++ b/stdlib/source/program/aedifex.lux
@@ -124,7 +124,7 @@
              (..fail! error))))
     (\ io.monad in [])))
 
-(program: [{[profile operation] /cli.command}]
+(program: [[profile operation] /cli.command]
   (do {! io.monad}
     [?console console.default]
     (case (try\map console.async ?console)
@@ -166,7 +166,7 @@
                 (#/cli.Deploy repository identity)
                 (..command
                  (case [(get@ #/.identity profile)
-                        (dictionary.get repository (get@ #/.deploy_repositories 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))
-- 
cgit v1.2.3