From a72e34d30eaf3557f9b76ced9605a95759ce8eca Mon Sep 17 00:00:00 2001
From: Eduardo Julian
Date: Sun, 24 Feb 2019 12:26:17 -0400
Subject: Got new-luxc to compile/build again.

---
 new-luxc/source/luxc/lang/translation/jvm/common.jvm.lux | 10 +++++-----
 1 file changed, 5 insertions(+), 5 deletions(-)

(limited to 'new-luxc/source/luxc/lang/translation/jvm/common.jvm.lux')

diff --git a/new-luxc/source/luxc/lang/translation/jvm/common.jvm.lux b/new-luxc/source/luxc/lang/translation/jvm/common.jvm.lux
index f0b73ac23..57fc576fa 100644
--- a/new-luxc/source/luxc/lang/translation/jvm/common.jvm.lux
+++ b/new-luxc/source/luxc/lang/translation/jvm/common.jvm.lux
@@ -6,7 +6,7 @@
    ["." io]
    [data
     ["." error (#+ Error)]
-    ["." text ("text/." Hash<Text>)
+    ["." text ("#/." hash)
      format]
     [collection
      ["." dictionary (#+ Dictionary)]]]
@@ -14,7 +14,7 @@
    [host (#+ import:)]
    [world
     [binary (#+ Binary)]]
-   [platform
+   [tool
     [compiler
      ["." name]
      [reference (#+ Register)]
@@ -31,7 +31,7 @@
 ##   (function (_ state)
 ##     (case (action (update@ #.host
 ##                            (|>> (:coerce Host)
-##                                 (set@ #artifacts (dictionary.new text.Hash<Text>))
+##                                 (set@ #artifacts (dictionary.new text.hash))
 ##                                 (:coerce Nothing))
 ##                            state))
 ##       (#error.Success [state' output])
@@ -52,10 +52,10 @@
 ##     (let [normal-name (format (name.normalize def-name) (%n (text/hash def-name)))
 ##           class-name (format (text.replace-all "/" "." def-module) "." normal-name)]
 ##       (<| (macro.run state)
-##           (do macro.Monad<Meta>
+##           (do macro.monad
 ##             [_ (..store-class class-name def-bytecode)
 ##              class (..load-class class-name)]
-##             (case (do error.Monad<Error>
+##             (case (do error.monad
 ##                     [field (Class::getField [..value-field] class)]
 ##                     (Field::get [#.None] field))
 ##               (#error.Success (#.Some def-value))
-- 
cgit v1.2.3