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.

---
 stdlib/source/specification/compositor/generation/case.lux      | 4 ++--
 stdlib/source/specification/compositor/generation/function.lux  | 4 ++--
 stdlib/source/specification/compositor/generation/structure.lux | 2 +-
 3 files changed, 5 insertions(+), 5 deletions(-)

(limited to 'stdlib/source/specification/compositor/generation')

diff --git a/stdlib/source/specification/compositor/generation/case.lux b/stdlib/source/specification/compositor/generation/case.lux
index 81042846f..bca682a9e 100644
--- a/stdlib/source/specification/compositor/generation/case.lux
+++ b/stdlib/source/specification/compositor/generation/case.lux
@@ -232,8 +232,8 @@
   Path
   ($_ synthesis.path/alt
       (<| try.assumed
-          (phase.run [extension/synthesis.bundle
-                      synthesis.init])
+          (phase.result [extension/synthesis.bundle
+                         synthesis.init])
           (case.path phase/synthesis.phase
                      special_pattern)
           (analysis.bit #1))
diff --git a/stdlib/source/specification/compositor/generation/function.lux b/stdlib/source/specification/compositor/generation/function.lux
index a9845081b..ad90dbfa0 100644
--- a/stdlib/source/specification/compositor/generation/function.lux
+++ b/stdlib/source/specification/compositor/generation/function.lux
@@ -5,9 +5,9 @@
     [monad (#+ do)]
     ["." enum]]
    [control
-    [pipe (#+ case>)]]
+    [pipe (#+ case>)]
+    ["." maybe]]
    [data
-    ["." maybe]
     [number
      ["n" nat]]
     [collection
diff --git a/stdlib/source/specification/compositor/generation/structure.lux b/stdlib/source/specification/compositor/generation/structure.lux
index 4feea793f..0b4bfe4fe 100644
--- a/stdlib/source/specification/compositor/generation/structure.lux
+++ b/stdlib/source/specification/compositor/generation/structure.lux
@@ -5,9 +5,9 @@
     [monad (#+ do)]]
    [control
     [pipe (#+ case>)]
+    ["." maybe]
     ["." try]]
    [data
-    ["." maybe]
     [number
      ["n" nat]
      ["i" int]]
-- 
cgit v1.2.3