From 2dbbaaec93a53f8dd0b96a0028b9cf125c9066cd Mon Sep 17 00:00:00 2001 From: Eduardo Julian Date: Sun, 12 Sep 2021 15:39:55 -0400 Subject: Re-named \ => # && \\ => ## --- stdlib/source/program/aedifex/repository/local.lux | 16 ++++++++-------- 1 file changed, 8 insertions(+), 8 deletions(-) (limited to 'stdlib/source/program/aedifex/repository/local.lux') diff --git a/stdlib/source/program/aedifex/repository/local.lux b/stdlib/source/program/aedifex/repository/local.lux index e00c5f240..5af09ac99 100644 --- a/stdlib/source/program/aedifex/repository/local.lux +++ b/stdlib/source/program/aedifex/repository/local.lux @@ -24,7 +24,7 @@ (-> (Program Async) Text file.Path) (|> ///local.repository (text.replaced uri.separator /) - (format (\ program home) /))) + (format (# program home) /))) (def: (path /) (-> Text (-> URI file.Path)) @@ -40,16 +40,16 @@ (-> (Program Async) (file.System Async) (//.Repository Async)) (def: description - (..root program (\ fs separator))) + (..root program (# fs separator))) (def: download - (|>> (..absolute_path program (\ fs separator)) - (\ fs read))) + (|>> (..absolute_path program (# fs separator)) + (# fs read))) (def: (upload uri content) (do [! async.monad] - [.let [absolute_path (..absolute_path program (\ fs separator) uri)] - ? (\ fs file? absolute_path) + [.let [absolute_path (..absolute_path program (# fs separator) uri)] + ? (# fs file? absolute_path) _ (if ? (in []) (case (file.parent fs absolute_path) @@ -58,5 +58,5 @@ _ (let [! (try.with async.monad)] - (\ ! in []))))] - (\ fs write content absolute_path)))) + (# ! in []))))] + (# fs write content absolute_path)))) -- cgit v1.2.3