aboutsummaryrefslogtreecommitdiff
path: root/stdlib/source/program/aedifex/repository
diff options
context:
space:
mode:
authorEduardo Julian2021-06-14 18:33:54 -0400
committerEduardo Julian2021-06-14 18:33:54 -0400
commit519c0c0c71cdf7ce3dfc64b9781ab826760b3d94 (patch)
tree75fa0672afceff129e5e75afb7a5fed197ce1773 /stdlib/source/program/aedifex/repository
parentaf3e6e2cb011dc2ad9204440990731a2f272716d (diff)
Extracted Licentia out of the standard library.
Diffstat (limited to '')
-rw-r--r--stdlib/source/program/aedifex/repository/local.lux10
1 files changed, 4 insertions, 6 deletions
diff --git a/stdlib/source/program/aedifex/repository/local.lux b/stdlib/source/program/aedifex/repository/local.lux
index 6b4575627..d026559c9 100644
--- a/stdlib/source/program/aedifex/repository/local.lux
+++ b/stdlib/source/program/aedifex/repository/local.lux
@@ -36,13 +36,11 @@
Bit
URI
(Promise (Try (File Promise))))
- (do {! promise.monad}
- [#let [uri (text.replace_once ///metadata.remote_file ///metadata.local_file uri)]
- home (\ program home [])
- #let [/ (\ system separator)
- absolute_path (format home / (..root /) / (..path / uri))]]
+ (let [uri (text.replace_once ///metadata.remote_file ///metadata.local_file uri)
+ / (\ system separator)
+ absolute_path (format (..root /) / (..path / uri))]
(if create?
- (do {! (try.with !)}
+ (do {! (try.with promise.monad)}
[_ (: (Promise (Try Path))
(file.make_directories promise.monad system (file.parent system absolute_path)))]
(: (Promise (Try (File Promise)))