From a5a15c191c43a660bb0c8e78e93d097e27966177 Mon Sep 17 00:00:00 2001
From: Eduardo Julian
Date: Fri, 28 Aug 2020 00:06:26 -0400
Subject: Build programs.

---
 stdlib/source/program/aedifex/local.lux | 6 ++++++
 1 file changed, 6 insertions(+)

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

diff --git a/stdlib/source/program/aedifex/local.lux b/stdlib/source/program/aedifex/local.lux
index 8761b573a..0a429fdc2 100644
--- a/stdlib/source/program/aedifex/local.lux
+++ b/stdlib/source/program/aedifex/local.lux
@@ -160,3 +160,9 @@
           
           (#try.Failure error)
           <next>)))))
+
+(def: #export (path system artifact)
+  (All [a] (-> (file.System a) Artifact Path))
+  (format (..repository system)
+          (:: system separator)
+          (//artifact.identity artifact)))
-- 
cgit v1.2.3