From 8787650c4b1641832db9df2c35bc3046e886220e Mon Sep 17 00:00:00 2001
From: Eduardo Julian
Date: Sun, 6 May 2018 00:45:45 -0400
Subject: - Updated new-luxc to the latest stdlib changes.

---
 new-luxc/source/luxc/lang/module.lux | 14 +++++++-------
 1 file changed, 7 insertions(+), 7 deletions(-)

(limited to 'new-luxc/source/luxc/lang/module.lux')

diff --git a/new-luxc/source/luxc/lang/module.lux b/new-luxc/source/luxc/lang/module.lux
index f60a6f462..8e24d0cf4 100644
--- a/new-luxc/source/luxc/lang/module.lux
+++ b/new-luxc/source/luxc/lang/module.lux
@@ -38,7 +38,7 @@
    #.module-state       #.Active})
 
 (def: #export (set-annotations annotations)
-  (-> Code (Meta Unit))
+  (-> Code (Meta Top))
   (do macro.Monad<Meta>
     [self-name macro.current-module-name
      self macro.current-module]
@@ -57,7 +57,7 @@
                        "New annotations: " (%code annotations) "\n")))))
 
 (def: #export (import module)
-  (-> Text (Meta Unit))
+  (-> Text (Meta Top))
   (do macro.Monad<Meta>
     [self macro.current-module-name]
     (function (_ compiler)
@@ -67,7 +67,7 @@
                    []]))))
 
 (def: #export (alias alias module)
-  (-> Text Text (Meta Unit))
+  (-> Text Text (Meta Top))
   (do macro.Monad<Meta>
     [self macro.current-module-name]
     (function (_ compiler)
@@ -87,7 +87,7 @@
 
 (def: #export (define (^@ full-name [module-name def-name])
                       definition)
-  (-> Ident Definition (Meta Unit))
+  (-> Ident Definition (Meta Top))
   (function (_ compiler)
     (case (&.pl-get module-name (get@ #.modules compiler))
       (#.Some module)
@@ -128,7 +128,7 @@
 
 (do-template [<flagger> <asker> <tag> <description>]
   [(def: #export (<flagger> module-name)
-     (-> Text (Meta Unit))
+     (-> Text (Meta Top))
      (function (_ compiler)
        (case (|> compiler (get@ #.modules) (&.pl-get module-name))
          (#.Some module)
@@ -184,7 +184,7 @@
   )
 
 (def: (ensure-undeclared-tags module-name tags)
-  (-> Text (List Text) (Meta Unit))
+  (-> Text (List Text) (Meta Top))
   (do macro.Monad<Meta>
     [bindings (tags-by-module module-name)
      _ (monad.map @
@@ -200,7 +200,7 @@
     (wrap [])))
 
 (def: #export (declare-tags tags exported? type)
-  (-> (List Text) Bool Type (Meta Unit))
+  (-> (List Text) Bool Type (Meta Top))
   (do macro.Monad<Meta>
     [current-module macro.current-module-name
      [type-module type-name] (case type
-- 
cgit v1.2.3