aboutsummaryrefslogtreecommitdiff
path: root/new-luxc/source/luxc/cache
diff options
context:
space:
mode:
Diffstat (limited to 'new-luxc/source/luxc/cache')
-rw-r--r--new-luxc/source/luxc/cache/io.lux12
1 files changed, 6 insertions, 6 deletions
diff --git a/new-luxc/source/luxc/cache/io.lux b/new-luxc/source/luxc/cache/io.lux
index 998c658ac..2d1f373d5 100644
--- a/new-luxc/source/luxc/cache/io.lux
+++ b/new-luxc/source/luxc/cache/io.lux
@@ -65,7 +65,7 @@
(wrap (list.concat root-modules))))
(def: (delete file)
- (-> File (Process Top))
+ (-> File (Process Any))
(do io.Monad<Process>
[deleted? (file.delete file)]
(if deleted?
@@ -73,7 +73,7 @@
(io.throw Cannot-Delete-Cached-File file))))
(def: (un-install target-dir module-name)
- (-> File Text (Process Top))
+ (-> File Text (Process Any))
(do io.Monad<Process>
[#let [module-dir (///io.file target-dir module-name)]
files (file.files module-dir)
@@ -127,7 +127,7 @@
_ (un-install target-dir module-name)]
(wrap (list))))))
-(type: Loader (-> Ident Blob (Error Top)))
+(type: Loader (-> Ident Blob (Error Any)))
(def: (install target-dir load-def module-name module)
(-> File Loader Text Module (Process Module))
@@ -191,7 +191,7 @@
(:: @ map (dict.from-list text.Hash<Text>)))))
(def: (set-cache cache)
- (-> //.Cache (Process Top))
+ (-> //.Cache (Process Any))
(do io.Monad<IO>
[swapped? (atom.compare-and-swap //.empty cache ..cache)]
(if swapped?
@@ -199,13 +199,13 @@
(io.throw Cannot-Pre-Load-Cache-More-Than-Once ""))))
(def: #export (pre-load source-dirs target-dir load-def)
- (-> (List File) File Loader (Process Top))
+ (-> (List File) File Loader (Process Any))
(do io.Monad<Process>
[loaded-cache (pre-load' source-dirs (///io.platform-target target-dir) load-def)]
(set-cache loaded-cache)))
(def: #export (clean target-dir wanted-modules)
- (-> File (Set Text) (Process Top))
+ (-> File (Set Text) (Process Any))
(do io.Monad<Process>
[cached (cached target-dir)
_ (|> cached