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/host/jvm/def.lux | 12 ++++++------
 1 file changed, 6 insertions(+), 6 deletions(-)

(limited to 'new-luxc/source/luxc/lang/host/jvm/def.lux')

diff --git a/new-luxc/source/luxc/lang/host/jvm/def.lux b/new-luxc/source/luxc/lang/host/jvm/def.lux
index e8efe306b..db6bfe07b 100644
--- a/new-luxc/source/luxc/lang/host/jvm/def.lux
+++ b/new-luxc/source/luxc/lang/host/jvm/def.lux
@@ -6,7 +6,7 @@
     ["." product]
     [collection
      ["." array (#+ Array)]
-     ["." list ("list/." Functor<List>)]]]
+     ["." list ("#/." functor)]]]
    ["." host (#+ import: do-to)]
    ["." function]]
   ["$" //
@@ -266,22 +266,22 @@
                       (FieldVisitor::visitEnd))]
          writer)))]
 
-  [boolean-field Bit  $t.boolean id]
+  [boolean-field Bit  $t.boolean function.identity]
   [byte-field    Int  $t.byte    host.long-to-byte]
   [short-field   Int  $t.short   host.long-to-short]
   [int-field     Int  $t.int     host.long-to-int]
-  [long-field    Int  $t.long    id]
+  [long-field    Int  $t.long    function.identity]
   [float-field   Frac $t.float   host.double-to-float]
-  [double-field  Frac $t.double  id]
+  [double-field  Frac $t.double  function.identity]
   [char-field    Nat  $t.char    (|>> .int host.long-to-int host.int-to-char)]
-  [string-field  Text ($t.class "java.lang.String" (list)) id]
+  [string-field  Text ($t.class "java.lang.String" (list)) function.identity]
   )
 
 (def: #export (fuse defs)
   (-> (List $.Def) $.Def)
   (case defs
     #.Nil
-    id
+    function.identity
 
     (#.Cons singleton #.Nil)
     singleton
-- 
cgit v1.2.3