diff options
Diffstat (limited to 'stdlib/source/program/aedifex/repository/local.lux')
| -rw-r--r-- | stdlib/source/program/aedifex/repository/local.lux | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/stdlib/source/program/aedifex/repository/local.lux b/stdlib/source/program/aedifex/repository/local.lux index e712e1db1..6f031ccfd 100644 --- a/stdlib/source/program/aedifex/repository/local.lux +++ b/stdlib/source/program/aedifex/repository/local.lux @@ -22,10 +22,10 @@ (def: .public (root program fs) (-> (Program Async) (file.System Async) file.Path) - (let [/ (# fs separator)] + (let [/ (at fs separator)] (|> ///local.repository (text.replaced uri.separator /) - (format (# program home) /)))) + (format (at program home) /)))) (def: (path /) (-> Text (-> URI file.Path)) @@ -33,7 +33,7 @@ (def: (absolute_path program fs) (-> (Program Async) (file.System Async) (-> URI file.Path)) - (let [/ (# fs separator)] + (let [/ (at fs separator)] (|>> ///metadata.local_uri (..path /) (format (..root program fs) /)))) @@ -46,12 +46,12 @@ (def: download (|>> (..absolute_path program fs) - (# fs read))) + (at fs read))) (def: (upload uri content) (do [! async.monad] [.let [absolute_path (..absolute_path program fs uri)] - ? (# fs file? absolute_path) + ? (at fs file? absolute_path) _ (is (Async (Try Any)) (if ? (in {try.#Success []}) @@ -61,4 +61,4 @@ _ (in {try.#Success []}))))] - (# fs write absolute_path content)))) + (at fs write absolute_path content)))) |