From 14e96f5e5dad439383d63e60a52169cc2e7aaa5c Mon Sep 17 00:00:00 2001
From: Eduardo Julian
Date: Sun, 20 May 2018 21:04:03 -0400
Subject: - Re-named "Top" to "Any", and "Bottom" to "Nothing". - Removed some
 modules that should have been deleted before.

---
 new-luxc/source/luxc/cache/io.lux | 12 ++++++------
 1 file changed, 6 insertions(+), 6 deletions(-)

(limited to 'new-luxc/source/luxc/cache')

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
-- 
cgit v1.2.3