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/format.lux | 38 ++++++++++++++++----------------
 1 file changed, 19 insertions(+), 19 deletions(-)

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

diff --git a/stdlib/source/program/aedifex/format.lux b/stdlib/source/program/aedifex/format.lux
index 82b15f84d..74583c8f5 100644
--- a/stdlib/source/program/aedifex/format.lux
+++ b/stdlib/source/program/aedifex/format.lux
@@ -108,13 +108,13 @@
 (def: (info value)
   (Format /.Info)
   (|> ..empty
-      (..on_maybe "url" (get@ #/.url value) code.text)
-      (..on_maybe "scm" (get@ #/.scm value) code.text)
-      (..on_maybe "description" (get@ #/.description value) code.text)
-      (..on_list "licenses" (get@ #/.licenses value) ..license)
-      (..on_maybe "organization" (get@ #/.organization value) ..organization)
-      (..on_list "developers" (get@ #/.developers value) ..developer)
-      (..on_list "contributors" (get@ #/.contributors value) ..contributor)
+      (..on_maybe "url" (value@ #/.url value) code.text)
+      (..on_maybe "scm" (value@ #/.scm value) code.text)
+      (..on_maybe "description" (value@ #/.description value) code.text)
+      (..on_list "licenses" (value@ #/.licenses value) ..license)
+      (..on_maybe "organization" (value@ #/.organization value) ..organization)
+      (..on_list "developers" (value@ #/.developers value) ..developer)
+      (..on_list "contributors" (value@ #/.contributors value) ..contributor)
       ..aggregate))
 
 (def: (artifact' [group name version])
@@ -142,19 +142,19 @@
 (def: .public (profile value)
   (Format /.Profile)
   (`` (|> ..empty
-          (..on_list "parents" (get@ #/.parents value) code.text)
-          (..on_maybe "identity" (get@ #/.identity value) ..artifact)
-          (..on_maybe "info" (get@ #/.info value) ..info)
-          (..on_set "repositories" (get@ #/.repositories value) code.text)
-          (..on_set "dependencies" (get@ #/.dependencies value) ..dependency)
-          (dictionary.has "compiler" (..dependency (get@ #/.compiler value)))
-          (..on_set "sources" (get@ #/.sources value) code.text)
-          (dictionary.has "target" (code.text (get@ #/.target value)))
-          (..on_maybe "program" (get@ #/.program value) code.text)
-          (..on_maybe "test" (get@ #/.test value) code.text)
-          (..on_dictionary "deploy_repositories" (get@ #/.deploy_repositories value) code.text code.text)
+          (..on_list "parents" (value@ #/.parents value) code.text)
+          (..on_maybe "identity" (value@ #/.identity value) ..artifact)
+          (..on_maybe "info" (value@ #/.info value) ..info)
+          (..on_set "repositories" (value@ #/.repositories value) code.text)
+          (..on_set "dependencies" (value@ #/.dependencies value) ..dependency)
+          (dictionary.has "compiler" (..dependency (value@ #/.compiler value)))
+          (..on_set "sources" (value@ #/.sources value) code.text)
+          (dictionary.has "target" (code.text (value@ #/.target value)))
+          (..on_maybe "program" (value@ #/.program value) code.text)
+          (..on_maybe "test" (value@ #/.test value) code.text)
+          (..on_dictionary "deploy_repositories" (value@ #/.deploy_repositories value) code.text code.text)
           (~~ (template [<tag>]
-                [(dictionary.has (template.text [<tag>]) (..runtime (get@ <tag> value)))]
+                [(dictionary.has (template.text [<tag>]) (..runtime (value@ <tag> value)))]
 
                 [#/.java]
                 [#/.js]
-- 
cgit v1.2.3