diff options
Diffstat (limited to 'stdlib/source/library/lux/meta/compiler/meta/cache/artifact.lux')
| -rw-r--r-- | stdlib/source/library/lux/meta/compiler/meta/cache/artifact.lux | 17 |
1 files changed, 10 insertions, 7 deletions
diff --git a/stdlib/source/library/lux/meta/compiler/meta/cache/artifact.lux b/stdlib/source/library/lux/meta/compiler/meta/cache/artifact.lux index 55dd3345c..c0e7ecd16 100644 --- a/stdlib/source/library/lux/meta/compiler/meta/cache/artifact.lux +++ b/stdlib/source/library/lux/meta/compiler/meta/cache/artifact.lux @@ -27,18 +27,21 @@ (def .public (path fs context @module @artifact) (All (_ !) - (-> (file.System !) Context module.ID artifact.ID file.Path)) - (format (//module.path fs context @module) - (of fs separator) - (%.nat @artifact) - (the context.#artifact_extension context))) + (-> (file.System !) Context module.ID artifact.ID + file.Path)) + (let [/ (of fs separator)] + (format (//module.path fs @module) + / (%.nat @artifact) + (the context.#artifact_extension context)))) (def .public (cache fs context @module @artifact) (All (_ !) - (-> (file.System !) Context module.ID artifact.ID (! (Try Binary)))) + (-> (file.System !) Context module.ID artifact.ID + (! (Try Binary)))) (of fs read (..path fs context @module @artifact))) (def .public (cache! fs context @module @artifact content) (All (_ !) - (-> (file.System !) Context module.ID artifact.ID Binary (! (Try Any)))) + (-> (file.System !) Context module.ID artifact.ID Binary + (! (Try Any)))) (of fs write (..path fs context @module @artifact) content)) |