diff options
Diffstat (limited to 'stdlib/source/library/lux/meta/compiler/meta/cache/archive.lux')
-rw-r--r-- | stdlib/source/library/lux/meta/compiler/meta/cache/archive.lux | 20 |
1 files changed, 12 insertions, 8 deletions
diff --git a/stdlib/source/library/lux/meta/compiler/meta/cache/archive.lux b/stdlib/source/library/lux/meta/compiler/meta/cache/archive.lux index 0b48b95dd..fa6f273b3 100644 --- a/stdlib/source/library/lux/meta/compiler/meta/cache/archive.lux +++ b/stdlib/source/library/lux/meta/compiler/meta/cache/archive.lux @@ -18,12 +18,16 @@ [context (.only Context)] ["[0]" archive (.only Archive)]]]) -(def .public (descriptor fs context) - (All (_ !) (-> (file.System !) Context file.Path)) - (%.format (//.path fs context) - (of fs separator) - "descriptor")) +(def .public (descriptor fs) + (All (_ !) + (-> (file.System !) + file.Path)) + (let [/ (of fs separator)] + (%.format //.path + / "descriptor"))) -(def .public (cache! fs configuration context it) - (All (_ !) (-> (file.System !) Configuration Context Archive (! (Try Any)))) - (of fs write (..descriptor fs context) (archive.export ///.version configuration it))) +(def .public (cache! fs configuration it) + (All (_ !) + (-> (file.System !) Configuration Archive + (! (Try Any)))) + (of fs write (..descriptor fs) (archive.export ///.version configuration it))) |