From 86bcfadb774618defaa27bbb9361a93d288fb985 Mon Sep 17 00:00:00 2001
From: Eduardo Julian
Date: Mon, 12 Jul 2021 22:51:25 -0400
Subject: A bit more clarity for Licentia licenses.

---
 stdlib/source/program/aedifex/parser.lux | 28 +++++++++++++++++++++++++++-
 1 file changed, 27 insertions(+), 1 deletion(-)

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

diff --git a/stdlib/source/program/aedifex/parser.lux b/stdlib/source/program/aedifex/parser.lux
index 8d0fcdf73..6374f8807 100644
--- a/stdlib/source/program/aedifex/parser.lux
+++ b/stdlib/source/program/aedifex/parser.lux
@@ -19,6 +19,7 @@
     [net (#+ URL)]]]
   ["." // #_
    ["/" profile]
+   ["#." runtime (#+ Runtime)]
    ["#." project (#+ Project)]
    ["#." dependency]
    ["#." repository #_
@@ -171,6 +172,11 @@
                   (<>.and <code>.text
                           ..repository))))
 
+(def: runtime
+  (Parser Runtime)
+  (<code>.tuple (<>.and <code>.text
+                        (<>.some <code>.text))))
+
 (def: profile
   (Parser /.Profile)
   (do {! <>.monad}
@@ -216,7 +222,22 @@
            ^deploy_repositories (: (Parser (Dictionary Text //repository.Address))
                                    (<| (\ ! map (dictionary.from_list text.hash))
                                        (<>.default (list))
-                                       (..singular input "deploy_repositories" ..deploy_repository)))]]
+                                       (..singular input "deploy_repositories" ..deploy_repository)))
+           ^java (|> ..runtime
+                     (..singular input "java")
+                     (<>.default //runtime.default_java))
+           ^js (|> ..runtime
+                   (..singular input "js")
+                   (<>.default //runtime.default_js))
+           ^python (|> ..runtime
+                       (..singular input "python")
+                       (<>.default //runtime.default_python))
+           ^lua (|> ..runtime
+                    (..singular input "lua")
+                    (<>.default //runtime.default_lua))
+           ^ruby (|> ..runtime
+                     (..singular input "ruby")
+                     (<>.default //runtime.default_ruby))]]
     ($_ <>.and
         ^parents
         ^identity
@@ -229,6 +250,11 @@
         ^program
         ^test
         ^deploy_repositories
+        ^java
+        ^js
+        ^python
+        ^lua
+        ^ruby
         )))
 
 (def: #export project
-- 
cgit v1.2.3