diff options
Diffstat (limited to 'stdlib/source/lux/tool/compiler/meta/cache.lux')
-rw-r--r-- | stdlib/source/lux/tool/compiler/meta/cache.lux | 37 |
1 files changed, 19 insertions, 18 deletions
diff --git a/stdlib/source/lux/tool/compiler/meta/cache.lux b/stdlib/source/lux/tool/compiler/meta/cache.lux index 7ba16878a..a0d5302f3 100644 --- a/stdlib/source/lux/tool/compiler/meta/cache.lux +++ b/stdlib/source/lux/tool/compiler/meta/cache.lux @@ -19,13 +19,14 @@ ["." set (#+ Set)]]] [world [file (#+ File System)]]] - [// - [io (#+ Context Module) - ["io/." context] - ["io/." archive]] - ["." archive (#+ Signature Key Descriptor Document Archive)] - ["/." //]] - ["." /dependency (#+ Dependency Graph)]) + ["." // + ["#." io (#+ Context Module) + ["#/." context] + ["#/." archive]] + ["#." archive (#+ Signature Key Descriptor Document Archive)] + ["#/" //]] + ["." / #_ + ["#." dependency (#+ Dependency Graph)]]) (exception: #export (cannot-delete-file {file File}) (ex.report ["File" file])) @@ -37,8 +38,8 @@ (exception: #export (mismatched-signature {module ///.Module} {expected Signature} {actual Signature}) (ex.report ["Module" module] - ["Expected" (archive.describe expected)] - ["Actual" (archive.describe actual)])) + ["Expected" (//archive.describe expected)] + ["Actual" (//archive.describe actual)])) (do-template [<name>] [(exception: #export (<name> {message Text}) @@ -51,7 +52,7 @@ (def: #export (cached System<m> root) (All [m] (-> (System m) File (m (List File)))) (|> root - (io/archive.archive System<m>) + (//io/archive.archive System<m>) (do> (:: System<m> &monad) [(:: System<m> files)] [(monad.map @ (function (recur file) @@ -63,7 +64,7 @@ [(:: System<m> files)] [(monad.map @ recur)] [list.concat - (list& (maybe.assume (io/archive.module System<m> root file))) + (list& (maybe.assume (//io/archive.module System<m> root file))) wrap])) (wrap (list))))))] [list.concat wrap]))) @@ -79,7 +80,7 @@ (def: (un-install System<m> root module) (All [m] (-> (System m) File Module (m Any))) - (let [document (io/archive.document System<m> root module)] + (let [document (//io/archive.document System<m> root module)] (|> document (do> (:: System<m> &monad) [(:: System<m> files)] @@ -120,19 +121,19 @@ (All [m d] (-> (System m) (List File) File (Key d) (Format d) Module (m (Maybe [Dependency (Document d)])))) (do (:: System<m> &monad) - [document' (:: System<m> read (io/archive.document System<m> root module)) - [module' source-code] (io/context.read System<m> contexts module) + [document' (:: System<m> read (//io/archive.document System<m> root module)) + [module' source-code] (//io/context.read System<m> contexts module) #let [current-hash (:: text.hash hash source-code)]] (case (do error.monad [[signature descriptor content] (binary.read (..document binary) document') #let [[document-hash _file references _state] descriptor] - _ (ex.assert mismatched-signature [module (get@ #archive.signature key) signature] - (:: archive.equivalence = - (get@ #archive.signature key) + _ (ex.assert mismatched-signature [module (get@ #//archive.signature key) signature] + (:: //archive.equivalence = + (get@ #//archive.signature key) signature)) _ (ex.assert stale-document [module current-hash document-hash] (n/= current-hash document-hash)) - document (archive.write key signature descriptor content)] + document (//archive.write key signature descriptor content)] (wrap [[module references] document])) (#error.Success [dependency document]) (wrap (#.Some [dependency document])) |