From a62ce3f9c2b605e0033f4772b0f64c4525de4d86 Mon Sep 17 00:00:00 2001
From: Eduardo Julian
Date: Wed, 11 Aug 2021 02:38:59 -0400
Subject: Relocated maybe and lazy from data to control.

---
 lux-jvm/source/luxc/lang/translation/jvm/extension/common.lux | 2 +-
 lux-jvm/source/luxc/lang/translation/jvm/extension/host.lux   | 2 +-
 2 files changed, 2 insertions(+), 2 deletions(-)

(limited to 'lux-jvm/source/luxc/lang/translation/jvm/extension')

diff --git a/lux-jvm/source/luxc/lang/translation/jvm/extension/common.lux b/lux-jvm/source/luxc/lang/translation/jvm/extension/common.lux
index 14d31d4e2..eaee3b51e 100644
--- a/lux-jvm/source/luxc/lang/translation/jvm/extension/common.lux
+++ b/lux-jvm/source/luxc/lang/translation/jvm/extension/common.lux
@@ -47,7 +47,7 @@
          (-> Text Phase Archive s (Operation Inst))]
         Handler))
   (function (_ extension_name phase archive input)
-    (case (<s>.run parser input)
+    (case (<s>.result parser input)
       (#try.Success input')
       (handler extension_name phase archive input')
 
diff --git a/lux-jvm/source/luxc/lang/translation/jvm/extension/host.lux b/lux-jvm/source/luxc/lang/translation/jvm/extension/host.lux
index 2d94e822c..6fc52a0ab 100644
--- a/lux-jvm/source/luxc/lang/translation/jvm/extension/host.lux
+++ b/lux-jvm/source/luxc/lang/translation/jvm/extension/host.lux
@@ -5,6 +5,7 @@
     [abstract
      ["." monad (#+ do)]]
     [control
+     ["." maybe ("#\." functor)]
      ["." exception (#+ exception:)]
      ["." function]
      ["<>" parser ("#\." monad)
@@ -12,7 +13,6 @@
       ["<.>" synthesis (#+ Parser)]]]
     [data
      ["." product]
-     ["." maybe ("#\." functor)]
      ["." text ("#\." equivalence)
       ["%" format (#+ format)]]
      [collection
-- 
cgit v1.2.3