foldkit 0.148.2 → 0.149.0

package/dist/test/apps/keypress.js

@@ -1,37 +1,37 @@
-import { Match as M, Schema as S } from 'effect';
-import { m } from '../../message/index.js';
+import { Schema as S } from 'effect';
+import { defineMessageUnion } from '../../message/index.js';
 // MODEL
 export const Model = S.Struct({
     lastKey: S.String,
     isShifted: S.Boolean,
 });
 // MESSAGE
-export const PressedKey = m('PressedKey', { key: S.String });
-export const PressedShiftKey = m('PressedShiftKey', { key: S.String });
-export const Message = S.Union([PressedKey, PressedShiftKey]);
+export const Message = defineMessageUnion({
+    PressedKey: { key: S.String },
+    PressedShiftKey: { key: S.String },
+});
 // INIT
 export const initialModel = {
     lastKey: '',
     isShifted: false,
 };
 // UPDATE
-export const update = (model, message) => M.value(message).pipe(M.withReturnType(), M.tagsExhaustive({
-    PressedKey: ({ key }) => [
-        { ...model, lastKey: key, isShifted: false },
-        [],
-    ],
+export const update = (model, message) => Message.match(message, {
+    PressedKey: ({ key }) => [{ ...model, lastKey: key, isShifted: false }, []],
     PressedShiftKey: ({ key }) => [
         { ...model, lastKey: key, isShifted: true },
         [],
     ],
-}));
+});
 // VIEW
 export const view = (model, h) => {
     return h.div([
         h.Id('key-app'),
         h.Role('application'),
         h.AriaLabel('Key press area'),
-        h.OnKeyDown((key, modifiers) => modifiers.shiftKey ? PressedShiftKey({ key }) : PressedKey({ key })),
+        h.OnKeyDown((key, modifiers) => modifiers.shiftKey
+            ? Message.PressedShiftKey({ key })
+            : Message.PressedKey({ key })),
     ], [
         h.span([h.Class('last-key'), h.AriaLabel('Last key')], [model.lastKey]),
         h.span([h.Class('shifted'), h.AriaLabel('Shift pressed')], [model.isShifted ? 'true' : 'false']),

package/dist/test/apps/login.d.ts

@@ -9,35 +9,55 @@ export declare const Model: S.Struct<{
     readonly error: S.String;
 }>;
 export type Model = typeof Model.Type;
-export declare const UpdatedEmail: import("../../schema/index.js").CallableTaggedStruct<"UpdatedEmail", {
-    value: S.String;
+export declare const Message: import("../../schema/index.js").MessageUnion<{
+    readonly UpdatedEmail: {
+        readonly value: S.String;
+    };
+    readonly UpdatedPassword: {
+        readonly value: S.String;
+    };
+    readonly SubmittedLogin: {};
+    readonly SucceededAuthenticate: {
+        readonly username: S.String;
+    };
+    readonly FailedAuthenticate: {
+        readonly error: S.String;
+    };
+    readonly ClickedLogout: {};
 }>;
-export declare const UpdatedPassword: import("../../schema/index.js").CallableTaggedStruct<"UpdatedPassword", {
-    value: S.String;
-}>;
-export declare const SubmittedLogin: import("../../schema/index.js").CallableTaggedStruct<"SubmittedLogin", {}>;
-export declare const SucceededAuthenticate: import("../../schema/index.js").CallableTaggedStruct<"SucceededAuthenticate", {
-    username: S.String;
-}>;
-export declare const FailedAuthenticate: import("../../schema/index.js").CallableTaggedStruct<"FailedAuthenticate", {
-    error: S.String;
-}>;
-export declare const ClickedLogout: import("../../schema/index.js").CallableTaggedStruct<"ClickedLogout", {}>;
-export declare const Message: S.Union<readonly [import("../../schema/index.js").CallableTaggedStruct<"UpdatedEmail", {
-    value: S.String;
-}>, import("../../schema/index.js").CallableTaggedStruct<"UpdatedPassword", {
-    value: S.String;
-}>, import("../../schema/index.js").CallableTaggedStruct<"SubmittedLogin", {}>, import("../../schema/index.js").CallableTaggedStruct<"SucceededAuthenticate", {
-    username: S.String;
-}>, import("../../schema/index.js").CallableTaggedStruct<"FailedAuthenticate", {
-    error: S.String;
-}>, import("../../schema/index.js").CallableTaggedStruct<"ClickedLogout", {}>]>;
 export type Message = typeof Message.Type;
 export declare const Authenticate: Command.CommandDefinitionNoArgs<"Authenticate", Effect.Effect<{
     readonly _tag: "SucceededAuthenticate";
     readonly username: string;
 }, never, never>>;
 export declare const initialModel: Model;
-export declare const update: (model: Model, message: Message) => readonly [Model, ReadonlyArray<Command.Command<Message>>];
+export declare const update: (model: Model, message: Message) => readonly [{
+    readonly email: string;
+    readonly password: string;
+    readonly status: "Idle" | "Error" | "Submitting" | "LoggedIn";
+    readonly username: string;
+    readonly error: string;
+}, readonly Readonly<{
+    name: string;
+    args?: Record<string, unknown>;
+    key?: string;
+    effect: Effect.Effect<{
+        readonly _tag: "UpdatedEmail";
+        readonly value: string;
+    } | {
+        readonly _tag: "UpdatedPassword";
+        readonly value: string;
+    } | {
+        readonly _tag: "SubmittedLogin";
+    } | {
+        readonly _tag: "SucceededAuthenticate";
+        readonly username: string;
+    } | {
+        readonly _tag: "FailedAuthenticate";
+        readonly error: string;
+    } | {
+        readonly _tag: "ClickedLogout";
+    }, never, never>;
+}>[]];
 export declare const view: (model: Model, h: HtmlBuilder<Message>) => Html;
 //# sourceMappingURL=login.d.ts.map

package/dist/test/apps/login.d.ts.map

@@ -1 +1 @@
-{"version":3,"file":"login.d.ts","sourceRoot":"","sources":["../../../src/test/apps/login.ts"],"names":[],"mappings":"AAAA,OAAO,EAAE,MAAM,EAAc,MAAM,IAAI,CAAC,EAAE,MAAM,QAAQ,CAAA;AAExD,OAAO,KAAK,OAAO,MAAM,wBAAwB,CAAA;AACjD,OAAO,KAAK,EAAE,IAAI,EAAE,WAAW,EAAE,MAAM,qBAAqB,CAAA;AAK5D,eAAO,MAAM,KAAK;;;;;;EAMhB,CAAA;AAEF,MAAM,MAAM,KAAK,GAAG,OAAO,KAAK,CAAC,IAAI,CAAA;AAIrC,eAAO,MAAM,YAAY;;EAAyC,CAAA;AAClE,eAAO,MAAM,eAAe;;EAA4C,CAAA;AACxE,eAAO,MAAM,cAAc,4EAAsB,CAAA;AACjD,eAAO,MAAM,qBAAqB;;EAEhC,CAAA;AACF,eAAO,MAAM,kBAAkB;;EAA+C,CAAA;AAC9E,eAAO,MAAM,aAAa,2EAAqB,CAAA;AAE/C,eAAO,MAAM,OAAO;;;;;;;;+EAOlB,CAAA;AACF,MAAM,MAAM,OAAO,GAAG,OAAO,OAAO,CAAC,IAAI,CAAA;AAIzC,eAAO,MAAM,YAAY;;;iBAGvB,CAAA;AAIF,eAAO,MAAM,YAAY,EAAE,KAM1B,CAAA;AAID,eAAO,MAAM,MAAM,GACjB,OAAO,KAAK,EACZ,SAAS,OAAO,KACf,SAAS,CAAC,KAAK,EAAE,aAAa,CAAC,OAAO,CAAC,OAAO,CAAC,OAAO,CAAC,CAAC,CAyBxD,CAAA;AAIH,eAAO,MAAM,IAAI,GAAI,OAAO,KAAK,EAAE,GAAG,WAAW,CAAC,OAAO,CAAC,KAAG,IA8E5D,CAAA"}
+{"version":3,"file":"login.d.ts","sourceRoot":"","sources":["../../../src/test/apps/login.ts"],"names":[],"mappings":"AAAA,OAAO,EAAE,MAAM,EAAc,MAAM,IAAI,CAAC,EAAE,MAAM,QAAQ,CAAA;AAExD,OAAO,KAAK,OAAO,MAAM,wBAAwB,CAAA;AACjD,OAAO,KAAK,EAAE,IAAI,EAAE,WAAW,EAAE,MAAM,qBAAqB,CAAA;AAK5D,eAAO,MAAM,KAAK;;;;;;EAMhB,CAAA;AAEF,MAAM,MAAM,KAAK,GAAG,OAAO,KAAK,CAAC,IAAI,CAAA;AAIrC,eAAO,MAAM,OAAO;;;;;;;;;;;;;;;EAOlB,CAAA;AAEF,MAAM,MAAM,OAAO,GAAG,OAAO,OAAO,CAAC,IAAI,CAAA;AAIzC,eAAO,MAAM,YAAY;;;iBAKvB,CAAA;AAIF,eAAO,MAAM,YAAY,EAAE,KAM1B,CAAA;AAID,eAAO,MAAM,MAAM,GAAI,OAAO,KAAK,EAAE,SAAS,OAAO;;;;;;;;;;;;;;;;;;;;;;;;;;;KAuBlD,CAAA;AAIH,eAAO,MAAM,IAAI,GAAI,OAAO,KAAK,EAAE,GAAG,WAAW,CAAC,OAAO,CAAC,KAAG,IA8E5D,CAAA"}

package/dist/test/apps/login.js

@@ -1,6 +1,6 @@
 import { Effect, Match as M, Schema as S } from 'effect';
 import * as Command from '../../command/index.js';
-import { m } from '../../message/index.js';
+import { defineMessageUnion } from '../../message/index.js';
 // MODEL
 export const Model = S.Struct({
     email: S.String,
@@ -10,26 +10,18 @@ export const Model = S.Struct({
     error: S.String,
 });
 // MESSAGE
-export const UpdatedEmail = m('UpdatedEmail', { value: S.String });
-export const UpdatedPassword = m('UpdatedPassword', { value: S.String });
-export const SubmittedLogin = m('SubmittedLogin');
-export const SucceededAuthenticate = m('SucceededAuthenticate', {
-    username: S.String,
+export const Message = defineMessageUnion({
+    UpdatedEmail: { value: S.String },
+    UpdatedPassword: { value: S.String },
+    SubmittedLogin: {},
+    SucceededAuthenticate: { username: S.String },
+    FailedAuthenticate: { error: S.String },
+    ClickedLogout: {},
 });
-export const FailedAuthenticate = m('FailedAuthenticate', { error: S.String });
-export const ClickedLogout = m('ClickedLogout');
-export const Message = S.Union([
-    UpdatedEmail,
-    UpdatedPassword,
-    SubmittedLogin,
-    SucceededAuthenticate,
-    FailedAuthenticate,
-    ClickedLogout,
-]);
 // COMMAND
 export const Authenticate = Command.define('Authenticate', {
-    messages: [SucceededAuthenticate, FailedAuthenticate],
-    execute: Effect.sync(() => SucceededAuthenticate({ username: 'alice' })),
+    messages: [Message.SucceededAuthenticate, Message.FailedAuthenticate],
+    execute: Effect.sync(() => Message.SucceededAuthenticate({ username: 'alice' })),
 });
 // INIT
 export const initialModel = {
@@ -40,7 +32,7 @@ export const initialModel = {
     error: '',
 };
 // UPDATE
-export const update = (model, message) => M.value(message).pipe(M.withReturnType(), M.tagsExhaustive({
+export const update = (model, message) => Message.match(message, {
     UpdatedEmail: ({ value }) => [{ ...model, email: value }, []],
     UpdatedPassword: ({ value }) => [{ ...model, password: value }, []],
     SubmittedLogin: () => [
@@ -59,7 +51,7 @@ export const update = (model, message) => M.value(message).pipe(M.withReturnType
         { ...model, status: 'Idle', username: '', email: '', password: '' },
         [],
     ],
-}));
+});
 // VIEW
 export const view = (model, h) => {
     return h.div([h.Id('app')], [
@@ -70,21 +62,21 @@ export const view = (model, h) => {
         ], [
             h.span([h.Class('greeting'), h.Role('status')], [`Welcome, ${model.username}!`]),
             h.button([
-                h.OnClick(ClickedLogout()),
+                h.OnClick(Message.ClickedLogout()),
                 h.Role('button'),
                 h.AriaExpanded(false),
             ], ['Log out']),
         ])), M.when('Error', () => h.div([], [
             h.p([h.Class('error'), h.Role('alert')], [model.error]),
-            h.button([h.OnClick(SubmittedLogin()), h.Class('retry')], ['Retry']),
-        ])), M.when('Idle', () => h.form([h.OnSubmit(SubmittedLogin()), h.Class('login-form')], [
+            h.button([h.OnClick(Message.SubmittedLogin()), h.Class('retry')], ['Retry']),
+        ])), M.when('Idle', () => h.form([h.OnSubmit(Message.SubmittedLogin()), h.Class('login-form')], [
             h.label([h.For('email'), h.Class('sr-only')], ['Email']),
             h.input([
                 h.Id('email'),
                 h.Type('email'),
                 h.Placeholder('Email'),
                 h.Value(model.email),
-                h.OnInput(value => UpdatedEmail({ value })),
+                h.OnInput(value => Message.UpdatedEmail({ value })),
             ]),
             h.label([h.For('password'), h.Class('sr-only')], ['Password']),
             h.input([
@@ -92,7 +84,7 @@ export const view = (model, h) => {
                 h.Type('password'),
                 h.Placeholder('Password'),
                 h.Value(model.password),
-                h.OnInput(value => UpdatedPassword({ value })),
+                h.OnInput(value => Message.UpdatedPassword({ value })),
             ]),
             h.button([h.Type('submit'), h.Class('primary'), h.Disabled(false)], ['Sign in']),
         ])), M.exhaustive),

package/dist/test/apps/logoutButton.d.ts

@@ -4,14 +4,20 @@ export declare const Model: S.Struct<{
     readonly label: S.String;
 }>;
 export type Model = typeof Model.Type;
-export declare const ClickedLogout: import("../../schema/index.js").CallableTaggedStruct<"ClickedLogout", {}>;
-export declare const CompletedAction: import("../../schema/index.js").CallableTaggedStruct<"CompletedAction", {}>;
-export declare const Message: S.Union<readonly [import("../../schema/index.js").CallableTaggedStruct<"ClickedLogout", {}>, import("../../schema/index.js").CallableTaggedStruct<"CompletedAction", {}>]>;
+export declare const Message: import("../../schema/index.js").MessageUnion<{
+    readonly ClickedLogout: {};
+    readonly CompletedAction: {};
+}>;
 export type Message = typeof Message.Type;
-export declare const RequestedLogout: import("../../schema/index.js").CallableTaggedStruct<"RequestedLogout", {}>;
-export declare const OutMessage: S.Union<readonly [import("../../schema/index.js").CallableTaggedStruct<"RequestedLogout", {}>]>;
+export declare const OutMessage: import("../../schema/index.js").MessageUnion<{
+    readonly RequestedLogout: {};
+}>;
 export type OutMessage = typeof OutMessage.Type;
 export declare const initialModel: Model;
-export declare const update: (model: Model, message: Message) => readonly [Model, ReadonlyArray<never>, Option.Option<OutMessage>];
+export declare const update: (model: Model, message: Message) => readonly [{
+    readonly label: string;
+}, readonly never[], Option.Option<{
+    readonly _tag: "RequestedLogout";
+}>];
 export declare const view: (model: Model, h: HtmlBuilder<Message>) => Html;
 //# sourceMappingURL=logoutButton.d.ts.map

package/dist/test/apps/logoutButton.d.ts.map

@@ -1 +1 @@
-{"version":3,"file":"logoutButton.d.ts","sourceRoot":"","sources":["../../../src/test/apps/logoutButton.ts"],"names":[],"mappings":"AAAA,OAAO,EAAc,MAAM,EAAE,MAAM,IAAI,CAAC,EAAE,MAAM,QAAQ,CAAA;AAExD,OAAO,KAAK,EAAE,IAAI,EAAE,WAAW,EAAE,MAAM,qBAAqB,CAAA;AAK5D,eAAO,MAAM,KAAK;;EAAgC,CAAA;AAClD,MAAM,MAAM,KAAK,GAAG,OAAO,KAAK,CAAC,IAAI,CAAA;AAIrC,eAAO,MAAM,aAAa,2EAAqB,CAAA;AAC/C,eAAO,MAAM,eAAe,6EAAuB,CAAA;AAEnD,eAAO,MAAM,OAAO,4KAA4C,CAAA;AAChE,MAAM,MAAM,OAAO,GAAG,OAAO,OAAO,CAAC,IAAI,CAAA;AAIzC,eAAO,MAAM,eAAe,6EAAuB,CAAA;AAEnD,eAAO,MAAM,UAAU,iGAA6B,CAAA;AACpD,MAAM,MAAM,UAAU,GAAG,OAAO,UAAU,CAAC,IAAI,CAAA;AAI/C,eAAO,MAAM,YAAY,EAAE,KAA4B,CAAA;AAIvD,eAAO,MAAM,MAAM,GACjB,OAAO,KAAK,EACZ,SAAS,OAAO,KACf,SAAS,CAAC,KAAK,EAAE,aAAa,CAAC,KAAK,CAAC,EAAE,MAAM,CAAC,MAAM,CAAC,UAAU,CAAC,CAShE,CAAA;AAIH,eAAO,MAAM,IAAI,GAAI,OAAO,KAAK,EAAE,GAAG,WAAW,CAAC,OAAO,CAAC,KAAG,IAK5D,CAAA"}
+{"version":3,"file":"logoutButton.d.ts","sourceRoot":"","sources":["../../../src/test/apps/logoutButton.ts"],"names":[],"mappings":"AAAA,OAAO,EAAE,MAAM,EAAE,MAAM,IAAI,CAAC,EAAE,MAAM,QAAQ,CAAA;AAE5C,OAAO,KAAK,EAAE,IAAI,EAAE,WAAW,EAAE,MAAM,qBAAqB,CAAA;AAK5D,eAAO,MAAM,KAAK;;EAAgC,CAAA;AAClD,MAAM,MAAM,KAAK,GAAG,OAAO,KAAK,CAAC,IAAI,CAAA;AAIrC,eAAO,MAAM,OAAO;;;EAGlB,CAAA;AAEF,MAAM,MAAM,OAAO,GAAG,OAAO,OAAO,CAAC,IAAI,CAAA;AAIzC,eAAO,MAAM,UAAU;;EAErB,CAAA;AAEF,MAAM,MAAM,UAAU,GAAG,OAAO,UAAU,CAAC,IAAI,CAAA;AAI/C,eAAO,MAAM,YAAY,EAAE,KAA4B,CAAA;AAIvD,eAAO,MAAM,MAAM,GAAI,OAAO,KAAK,EAAE,SAAS,OAAO;;;;GAMjD,CAAA;AAIJ,eAAO,MAAM,IAAI,GAAI,OAAO,KAAK,EAAE,GAAG,WAAW,CAAC,OAAO,CAAC,KAAG,IAU5D,CAAA"}

package/dist/test/apps/logoutButton.js

@@ -1,22 +1,26 @@
-import { Match as M, Option, Schema as S } from 'effect';
-import { m } from '../../message/index.js';
+import { Option, Schema as S } from 'effect';
+import { defineMessageUnion } from '../../message/index.js';
 // MODEL
 export const Model = S.Struct({ label: S.String });
 // MESSAGE
-export const ClickedLogout = m('ClickedLogout');
-export const CompletedAction = m('CompletedAction');
-export const Message = S.Union([ClickedLogout, CompletedAction]);
+export const Message = defineMessageUnion({
+    ClickedLogout: {},
+    CompletedAction: {},
+});
 // OUT MESSAGE
-export const RequestedLogout = m('RequestedLogout');
-export const OutMessage = S.Union([RequestedLogout]);
+export const OutMessage = defineMessageUnion({
+    RequestedLogout: {},
+});
 // INIT
 export const initialModel = { label: 'Log out' };
 // UPDATE
-export const update = (model, message) => M.value(message).pipe(M.withReturnType(), M.tagsExhaustive({
-    ClickedLogout: () => [model, [], Option.some(RequestedLogout())],
+export const update = (model, message) => Message.match(message, {
+    ClickedLogout: () => [model, [], Option.some(OutMessage.RequestedLogout())],
     CompletedAction: () => [model, [], Option.none()],
-}));
+});
 // VIEW
 export const view = (model, h) => {
-    return h.div([], [h.button([h.OnClick(ClickedLogout()), h.Role('button')], [model.label])]);
+    return h.div([], [
+        h.button([h.OnClick(Message.ClickedLogout()), h.Role('button')], [model.label]),
+    ]);
 };

package/dist/test/apps/mountPanel.d.ts

@@ -1,4 +1,4 @@
-import { Schema as S } from 'effect';
+import { Option, Schema as S } from 'effect';
 import type { Html, HtmlBuilder } from '../../html/index.js';
 import * as Mount from '../../mount/index.js';
 export declare const Model: S.Struct<{
@@ -7,25 +7,20 @@ export declare const Model: S.Struct<{
     readonly count: S.Number;
 }>;
 export type Model = typeof Model.Type;
-export declare const ClickedToggle: import("../../schema/index.js").CallableTaggedStruct<"ClickedToggle", {}>;
-export declare const MeasuredPanel: import("../../schema/index.js").CallableTaggedStruct<"MeasuredPanel", {
-    width: S.Number;
+export declare const Message: import("../../schema/index.js").MessageUnion<{
+    readonly ClickedToggle: {};
+    readonly MeasuredPanel: {
+        readonly width: S.Number;
+    };
+    readonly CompletedFocusButton: {};
+    readonly FailedMountSidebar: {
+        readonly reason: S.String;
+    };
+    readonly ClickedIncrement: {};
+    readonly ScrolledTo: {
+        readonly offset: S.Number;
+    };
 }>;
-export declare const CompletedFocusButton: import("../../schema/index.js").CallableTaggedStruct<"CompletedFocusButton", {}>;
-export declare const FailedMountSidebar: import("../../schema/index.js").CallableTaggedStruct<"FailedMountSidebar", {
-    reason: S.String;
-}>;
-export declare const ClickedIncrement: import("../../schema/index.js").CallableTaggedStruct<"ClickedIncrement", {}>;
-export declare const ScrolledTo: import("../../schema/index.js").CallableTaggedStruct<"ScrolledTo", {
-    offset: S.Number;
-}>;
-export declare const Message: S.Union<readonly [import("../../schema/index.js").CallableTaggedStruct<"ClickedToggle", {}>, import("../../schema/index.js").CallableTaggedStruct<"MeasuredPanel", {
-    width: S.Number;
-}>, import("../../schema/index.js").CallableTaggedStruct<"CompletedFocusButton", {}>, import("../../schema/index.js").CallableTaggedStruct<"FailedMountSidebar", {
-    reason: S.String;
-}>, import("../../schema/index.js").CallableTaggedStruct<"ClickedIncrement", {}>, import("../../schema/index.js").CallableTaggedStruct<"ScrolledTo", {
-    offset: S.Number;
-}>]>;
 export type Message = typeof Message.Type;
 export declare const MeasurePanel: Mount.MountDefinitionNoArgs<"MeasurePanel", {
     readonly _tag: "MeasuredPanel";
@@ -44,7 +39,11 @@ export declare const ScrollList: Mount.MountDefinitionWithArgs<"ScrollList", {
     readonly offset: number;
 }>;
 export declare const initialModel: Model;
-export declare const update: (model: Model, message: Message) => readonly [Model, ReadonlyArray<never>];
+export declare const update: (model: Model, message: Message) => readonly [{
+    readonly isOpen: boolean;
+    readonly measuredWidth: Option.Option<number>;
+    readonly count: number;
+}, readonly never[]];
 export declare const view: (model: Model, h: HtmlBuilder<Message>) => Html;
 /** A view that always renders both the toggle button and the panel, exposing
  *  two MeasurePanel mounts simultaneously so we can exercise the (name,

package/dist/test/apps/mountPanel.d.ts.map

@@ -1 +1 @@
-{"version":3,"file":"mountPanel.d.ts","sourceRoot":"","sources":["../../../src/test/apps/mountPanel.ts"],"names":[],"mappings":"AAAA,OAAO,EAA8B,MAAM,IAAI,CAAC,EAAE,MAAM,QAAQ,CAAA;AAEhE,OAAO,KAAK,EAAE,IAAI,EAAE,WAAW,EAAE,MAAM,qBAAqB,CAAA;AAE5D,OAAO,KAAK,KAAK,MAAM,sBAAsB,CAAA;AAI7C,eAAO,MAAM,KAAK;;;;EAIhB,CAAA;AACF,MAAM,MAAM,KAAK,GAAG,OAAO,KAAK,CAAC,IAAI,CAAA;AAIrC,eAAO,MAAM,aAAa,2EAAqB,CAAA;AAC/C,eAAO,MAAM,aAAa;;EAA0C,CAAA;AACpE,eAAO,MAAM,oBAAoB,kFAA4B,CAAA;AAC7D,eAAO,MAAM,kBAAkB;;EAAgD,CAAA;AAC/E,eAAO,MAAM,gBAAgB,8EAAwB,CAAA;AACrD,eAAO,MAAM,UAAU;;EAAwC,CAAA;AAE/D,eAAO,MAAM,OAAO;;;;;;IAOlB,CAAA;AACF,MAAM,MAAM,OAAO,GAAG,OAAO,OAAO,CAAC,IAAI,CAAA;AAWzC,eAAO,MAAM,YAAY;;;;;;EAI6B,CAAA;AAEtD,eAAO,MAAM,WAAW;;EAGuB,CAAA;AAE/C,eAAO,MAAM,UAAU;;;;;EAatB,CAAA;AAID,eAAO,MAAM,YAAY,EAAE,KAI1B,CAAA;AAID,eAAO,MAAM,MAAM,GACjB,OAAO,KAAK,EACZ,SAAS,OAAO,KACf,SAAS,CAAC,KAAK,EAAE,aAAa,CAAC,KAAK,CAAC,CAcrC,CAAA;AAIH,eAAO,MAAM,IAAI,GAAI,OAAO,KAAK,EAAE,GAAG,WAAW,CAAC,OAAO,CAAC,KAAG,IA4B5D,CAAA;AAED;;4BAE4B;AAC5B,eAAO,MAAM,YAAY,GAAI,OAAO,KAAK,EAAE,GAAG,WAAW,CAAC,OAAO,CAAC,KAAG,IAYpE,CAAA;AAED;;;2DAG2D;AAC3D,eAAO,MAAM,cAAc,GACzB,QAAQ,MAAM,EACd,GAAG,WAAW,CAAC,OAAO,CAAC,KACtB,IAKF,CAAA"}
+{"version":3,"file":"mountPanel.d.ts","sourceRoot":"","sources":["../../../src/test/apps/mountPanel.ts"],"names":[],"mappings":"AAAA,OAAO,EAAU,MAAM,EAAE,MAAM,IAAI,CAAC,EAAE,MAAM,QAAQ,CAAA;AAEpD,OAAO,KAAK,EAAE,IAAI,EAAE,WAAW,EAAE,MAAM,qBAAqB,CAAA;AAE5D,OAAO,KAAK,KAAK,MAAM,sBAAsB,CAAA;AAI7C,eAAO,MAAM,KAAK;;;;EAIhB,CAAA;AACF,MAAM,MAAM,KAAK,GAAG,OAAO,KAAK,CAAC,IAAI,CAAA;AAIrC,eAAO,MAAM,OAAO;;;;;;;;;;;;;EAOlB,CAAA;AAEF,MAAM,MAAM,OAAO,GAAG,OAAO,OAAO,CAAC,IAAI,CAAA;AAWzC,eAAO,MAAM,YAAY;;;;;;EAIqC,CAAA;AAE9D,eAAO,MAAM,WAAW;;EAG+B,CAAA;AAEvD,eAAO,MAAM,UAAU;;;;;EAatB,CAAA;AAID,eAAO,MAAM,YAAY,EAAE,KAI1B,CAAA;AAID,eAAO,MAAM,MAAM,GAAI,OAAO,KAAK,EAAE,SAAS,OAAO;;;;oBAWjD,CAAA;AAIJ,eAAO,MAAM,IAAI,GAAI,OAAO,KAAK,EAAE,GAAG,WAAW,CAAC,OAAO,CAAC,KAAG,IAgC5D,CAAA;AAED;;4BAE4B;AAC5B,eAAO,MAAM,YAAY,GAAI,OAAO,KAAK,EAAE,GAAG,WAAW,CAAC,OAAO,CAAC,KAAG,IAYpE,CAAA;AAED;;;2DAG2D;AAC3D,eAAO,MAAM,cAAc,GACzB,QAAQ,MAAM,EACd,GAAG,WAAW,CAAC,OAAO,CAAC,KACtB,IAKF,CAAA"}

package/dist/test/apps/mountPanel.js

@@ -1,5 +1,5 @@
-import { Effect, Match as M, Option, Schema as S } from 'effect';
-import { m } from '../../message/index.js';
+import { Effect, Option, Schema as S } from 'effect';
+import { defineMessageUnion } from '../../message/index.js';
 import * as Mount from '../../mount/index.js';
 // MODEL
 export const Model = S.Struct({
@@ -8,20 +8,14 @@ export const Model = S.Struct({
     count: S.Number,
 });
 // MESSAGE
-export const ClickedToggle = m('ClickedToggle');
-export const MeasuredPanel = m('MeasuredPanel', { width: S.Number });
-export const CompletedFocusButton = m('CompletedFocusButton');
-export const FailedMountSidebar = m('FailedMountSidebar', { reason: S.String });
-export const ClickedIncrement = m('ClickedIncrement');
-export const ScrolledTo = m('ScrolledTo', { offset: S.Number });
-export const Message = S.Union([
-    ClickedToggle,
-    MeasuredPanel,
-    CompletedFocusButton,
-    FailedMountSidebar,
-    ClickedIncrement,
-    ScrolledTo,
-]);
+export const Message = defineMessageUnion({
+    ClickedToggle: {},
+    MeasuredPanel: { width: S.Number },
+    CompletedFocusButton: {},
+    FailedMountSidebar: { reason: S.String },
+    ClickedIncrement: {},
+    ScrolledTo: { offset: S.Number },
+});
 // MOUNT
 // NOTE: these Mounts are runtime/Scene fixtures, not idiomatic examples of
 // Mount work. Their factory bodies skip the DOM measurement/manipulation that
@@ -29,13 +23,13 @@ export const Message = S.Union([
 // `element.focus()` for focus) and emit synthetic result Messages so tests can
 // pin specific values. See `ui/popover/popover.ts`, `ui/listbox/shared.ts`,
 // etc. for production-shaped Mounts that read or write the element handle.
-export const MeasurePanel = Mount.define('MeasurePanel', MeasuredPanel, FailedMountSidebar)(() => Effect.succeed(MeasuredPanel({ width: 320 })));
-export const FocusButton = Mount.define('FocusButton', CompletedFocusButton)(() => Effect.succeed(CompletedFocusButton()));
-export const ScrollList = Mount.define('ScrollList', { offset: S.Number }, ScrolledTo)(({ offset }) => element => Effect.sync(() => {
+export const MeasurePanel = Mount.define('MeasurePanel', Message.MeasuredPanel, Message.FailedMountSidebar)(() => Effect.succeed(Message.MeasuredPanel({ width: 320 })));
+export const FocusButton = Mount.define('FocusButton', Message.CompletedFocusButton)(() => Effect.succeed(Message.CompletedFocusButton()));
+export const ScrollList = Mount.define('ScrollList', { offset: S.Number }, Message.ScrolledTo)(({ offset }) => element => Effect.sync(() => {
     if (element instanceof HTMLElement) {
         element.scrollTop = offset;
     }
-    return ScrolledTo({ offset });
+    return Message.ScrolledTo({ offset });
 }));
 // INIT
 export const initialModel = {
@@ -44,7 +38,7 @@ export const initialModel = {
     count: 0,
 };
 // UPDATE
-export const update = (model, message) => M.value(message).pipe(M.withReturnType(), M.tagsExhaustive({
+export const update = (model, message) => Message.match(message, {
     ClickedToggle: () => [{ ...model, isOpen: !model.isOpen }, []],
     MeasuredPanel: ({ width }) => [
         { ...model, measuredWidth: Option.some(width) },
@@ -54,11 +48,15 @@ export const update = (model, message) => M.value(message).pipe(M.withReturnType
     FailedMountSidebar: () => [model, []],
     ClickedIncrement: () => [{ ...model, count: model.count + 1 }, []],
     ScrolledTo: () => [model, []],
-}));
+});
 // VIEW
 export const view = (model, h) => {
     return h.div([h.Class('panel-test')], [
-        h.button([h.Key('toggle'), h.OnClick(ClickedToggle()), h.OnMount(FocusButton())], [model.isOpen ? 'Close' : 'Open']),
+        h.button([
+            h.Key('toggle'),
+            h.OnClick(Message.ClickedToggle()),
+            h.OnMount(FocusButton()),
+        ], [model.isOpen ? 'Close' : 'Open']),
         ...(model.isOpen
             ? [
                 h.div([h.Key('panel'), h.OnMount(MeasurePanel())], [
@@ -80,7 +78,7 @@ export const twoPanelView = (model, h) => {
     return h.div([h.Class('two-panels')], [
         h.div([h.Key('panel-a'), h.OnMount(MeasurePanel())], [h.span([], ['A'])]),
         h.div([h.Key('panel-b'), h.OnMount(MeasurePanel())], [h.span([], ['B'])]),
-        h.button([h.Key('inc'), h.OnClick(ClickedIncrement())], [`count: ${model.count}`]),
+        h.button([h.Key('inc'), h.OnClick(Message.ClickedIncrement())], [`count: ${model.count}`]),
     ]);
 };
 /** A view that renders an arg-bearing Mount so Scene tests can exercise

package/dist/test/apps/multiRole.d.ts

@@ -4,10 +4,13 @@ export declare const Model: S.Struct<{
     readonly clicks: S.Number;
 }>;
 export type Model = typeof Model.Type;
-export declare const ClickedFallback: import("../../schema/index.js").CallableTaggedStruct<"ClickedFallback", {}>;
-export declare const Message: S.Union<readonly [import("../../schema/index.js").CallableTaggedStruct<"ClickedFallback", {}>]>;
+export declare const Message: import("../../schema/index.js").MessageUnion<{
+    readonly ClickedFallback: {};
+}>;
 export type Message = typeof Message.Type;
 export declare const initialModel: Model;
-export declare const update: (model: Model, message: Message) => readonly [Model, ReadonlyArray<never>];
+export declare const update: (model: Model, message: Message) => readonly [{
+    readonly clicks: number;
+}, readonly never[]];
 export declare const view: (model: Model, h: HtmlBuilder<Message>) => Html;
 //# sourceMappingURL=multiRole.d.ts.map

package/dist/test/apps/multiRole.d.ts.map

@@ -1 +1 @@
-{"version":3,"file":"multiRole.d.ts","sourceRoot":"","sources":["../../../src/test/apps/multiRole.ts"],"names":[],"mappings":"AAAA,OAAO,EAAc,MAAM,IAAI,CAAC,EAAE,MAAM,QAAQ,CAAA;AAEhD,OAAO,KAAK,EAAE,IAAI,EAAE,WAAW,EAAE,MAAM,qBAAqB,CAAA;AAK5D,eAAO,MAAM,KAAK;;EAAiC,CAAA;AACnD,MAAM,MAAM,KAAK,GAAG,OAAO,KAAK,CAAC,IAAI,CAAA;AAIrC,eAAO,MAAM,eAAe,6EAAuB,CAAA;AAEnD,eAAO,MAAM,OAAO,iGAA6B,CAAA;AACjD,MAAM,MAAM,OAAO,GAAG,OAAO,OAAO,CAAC,IAAI,CAAA;AAIzC,eAAO,MAAM,YAAY,EAAE,KAAqB,CAAA;AAIhD,eAAO,MAAM,MAAM,GACjB,OAAO,KAAK,EACZ,SAAS,OAAO,KACf,SAAS,CAAC,KAAK,EAAE,aAAa,CAAC,KAAK,CAAC,CAMrC,CAAA;AAIH,eAAO,MAAM,IAAI,GAAI,OAAO,KAAK,EAAE,GAAG,WAAW,CAAC,OAAO,CAAC,KAAG,IAU5D,CAAA"}
+{"version":3,"file":"multiRole.d.ts","sourceRoot":"","sources":["../../../src/test/apps/multiRole.ts"],"names":[],"mappings":"AAAA,OAAO,EAAE,MAAM,IAAI,CAAC,EAAE,MAAM,QAAQ,CAAA;AAEpC,OAAO,KAAK,EAAE,IAAI,EAAE,WAAW,EAAE,MAAM,qBAAqB,CAAA;AAK5D,eAAO,MAAM,KAAK;;EAAiC,CAAA;AACnD,MAAM,MAAM,KAAK,GAAG,OAAO,KAAK,CAAC,IAAI,CAAA;AAIrC,eAAO,MAAM,OAAO;;EAElB,CAAA;AAEF,MAAM,MAAM,OAAO,GAAG,OAAO,OAAO,CAAC,IAAI,CAAA;AAIzC,eAAO,MAAM,YAAY,EAAE,KAAqB,CAAA;AAIhD,eAAO,MAAM,MAAM,GAAI,OAAO,KAAK,EAAE,SAAS,OAAO;;oBAGjD,CAAA;AAIJ,eAAO,MAAM,IAAI,GAAI,OAAO,KAAK,EAAE,GAAG,WAAW,CAAC,OAAO,CAAC,KAAG,IAU5D,CAAA"}

package/dist/test/apps/multiRole.js

@@ -1,19 +1,20 @@
-import { Match as M, Schema as S } from 'effect';
-import { m } from '../../message/index.js';
+import { Schema as S } from 'effect';
+import { defineMessageUnion } from '../../message/index.js';
 // MODEL
 export const Model = S.Struct({ clicks: S.Number });
 // MESSAGE
-export const ClickedFallback = m('ClickedFallback');
-export const Message = S.Union([ClickedFallback]);
+export const Message = defineMessageUnion({
+    ClickedFallback: {},
+});
 // INIT
 export const initialModel = { clicks: 0 };
 // UPDATE
-export const update = (model, message) => M.value(message).pipe(M.withReturnType(), M.tagsExhaustive({
+export const update = (model, message) => Message.match(message, {
     ClickedFallback: () => [{ ...model, clicks: model.clicks + 1 }, []],
-}));
+});
 // VIEW
 export const view = (model, h) => {
     return h.div([], [
-        h.div([h.Role('doc-subtitle heading'), h.OnClick(ClickedFallback())], [`Fallback element clicks=${model.clicks}`]),
+        h.div([h.Role('doc-subtitle heading'), h.OnClick(Message.ClickedFallback())], [`Fallback element clicks=${model.clicks}`]),
     ]);
 };

package/dist/test/apps/pointer.d.ts

@@ -6,14 +6,21 @@ export declare const Model: S.Struct<{
     readonly lastPointerType: S.String;
 }>;
 export type Model = typeof Model.Type;
-declare const Message: S.Union<readonly [import("../../schema/index.js").CallableTaggedStruct<"PressedPointerDown", {
-    pointerType: S.String;
-}>, import("../../schema/index.js").CallableTaggedStruct<"ReleasedPointerUp", {
-    pointerType: S.String;
-}>]>;
+declare const Message: import("../../schema/index.js").MessageUnion<{
+    readonly PressedPointerDown: {
+        readonly pointerType: S.String;
+    };
+    readonly ReleasedPointerUp: {
+        readonly pointerType: S.String;
+    };
+}>;
 type Message = typeof Message.Type;
 export declare const initialModel: Model;
-export declare const update: (model: Model, message: Message) => readonly [Model, ReadonlyArray<never>];
+export declare const update: (model: Model, message: Message) => readonly [{
+    readonly pointerDownCount: number;
+    readonly pointerUpCount: number;
+    readonly lastPointerType: string;
+}, readonly never[]];
 export declare const view: (model: Model, h: HtmlBuilder<Message>) => Html;
 export {};
 //# sourceMappingURL=pointer.d.ts.map

package/dist/test/apps/pointer.d.ts.map

@@ -1 +1 @@
-{"version":3,"file":"pointer.d.ts","sourceRoot":"","sources":["../../../src/test/apps/pointer.ts"],"names":[],"mappings":"AAAA,OAAO,EAAsB,MAAM,IAAI,CAAC,EAAE,MAAM,QAAQ,CAAA;AAExD,OAAO,KAAK,EAAE,IAAI,EAAE,WAAW,EAAE,MAAM,qBAAqB,CAAA;AAK5D,eAAO,MAAM,KAAK;;;;EAIhB,CAAA;AACF,MAAM,MAAM,KAAK,GAAG,OAAO,KAAK,CAAC,IAAI,CAAA;AAOrC,QAAA,MAAM,OAAO;;;;IAAmD,CAAA;AAChE,KAAK,OAAO,GAAG,OAAO,OAAO,CAAC,IAAI,CAAA;AAIlC,eAAO,MAAM,YAAY,EAAE,KAI1B,CAAA;AAID,eAAO,MAAM,MAAM,GACjB,OAAO,KAAK,EACZ,SAAS,OAAO,KACf,SAAS,CAAC,KAAK,EAAE,aAAa,CAAC,KAAK,CAAC,CAqBrC,CAAA;AAIH,eAAO,MAAM,IAAI,GAAI,OAAO,KAAK,EAAE,GAAG,WAAW,CAAC,OAAO,CAAC,KAAG,IA4B5D,CAAA"}
+{"version":3,"file":"pointer.d.ts","sourceRoot":"","sources":["../../../src/test/apps/pointer.ts"],"names":[],"mappings":"AAAA,OAAO,EAAU,MAAM,IAAI,CAAC,EAAE,MAAM,QAAQ,CAAA;AAE5C,OAAO,KAAK,EAAE,IAAI,EAAE,WAAW,EAAE,MAAM,qBAAqB,CAAA;AAK5D,eAAO,MAAM,KAAK;;;;EAIhB,CAAA;AACF,MAAM,MAAM,KAAK,GAAG,OAAO,KAAK,CAAC,IAAI,CAAA;AAIrC,QAAA,MAAM,OAAO;;;;;;;EAGX,CAAA;AACF,KAAK,OAAO,GAAG,OAAO,OAAO,CAAC,IAAI,CAAA;AAIlC,eAAO,MAAM,YAAY,EAAE,KAI1B,CAAA;AAID,eAAO,MAAM,MAAM,GAAI,OAAO,KAAK,EAAE,SAAS,OAAO;;;;oBAkBjD,CAAA;AAIJ,eAAO,MAAM,IAAI,GAAI,OAAO,KAAK,EAAE,GAAG,WAAW,CAAC,OAAO,CAAC,KAAG,IA4B5D,CAAA"}

package/dist/test/apps/pointer.js

@@ -1,5 +1,5 @@
-import { Match as M, Option, Schema as S } from 'effect';
-import { m } from '../../message/index.js';
+import { Option, Schema as S } from 'effect';
+import { defineMessageUnion } from '../../message/index.js';
 // MODEL
 export const Model = S.Struct({
     pointerDownCount: S.Number,
@@ -7,9 +7,10 @@ export const Model = S.Struct({
     lastPointerType: S.String,
 });
 // MESSAGE
-const PressedPointerDown = m('PressedPointerDown', { pointerType: S.String });
-const ReleasedPointerUp = m('ReleasedPointerUp', { pointerType: S.String });
-const Message = S.Union([PressedPointerDown, ReleasedPointerUp]);
+const Message = defineMessageUnion({
+    PressedPointerDown: { pointerType: S.String },
+    ReleasedPointerUp: { pointerType: S.String },
+});
 // INIT
 export const initialModel = {
     pointerDownCount: 0,
@@ -17,7 +18,7 @@ export const initialModel = {
     lastPointerType: '',
 };
 // UPDATE
-export const update = (model, message) => M.value(message).pipe(M.withReturnType(), M.tagsExhaustive({
+export const update = (model, message) => Message.match(message, {
     PressedPointerDown: ({ pointerType }) => [
         {
             ...model,
@@ -34,18 +35,18 @@ export const update = (model, message) => M.value(message).pipe(M.withReturnType
         },
         [],
     ],
-}));
+});
 // VIEW
 export const view = (model, h) => {
     return h.div([], [
         h.button([
             h.AriaLabel('pointer target'),
-            h.OnPointerDown(pointerType => Option.some(PressedPointerDown({ pointerType }))),
-            h.OnPointerUp((_screenX, _screenY, pointerType, _timeStamp) => Option.some(ReleasedPointerUp({ pointerType }))),
+            h.OnPointerDown(pointerType => Option.some(Message.PressedPointerDown({ pointerType }))),
+            h.OnPointerUp((_screenX, _screenY, pointerType, _timeStamp) => Option.some(Message.ReleasedPointerUp({ pointerType }))),
         ], [`down=${model.pointerDownCount} up=${model.pointerUpCount}`]),
         h.div([
             h.AriaLabel('nested target'),
-            h.OnPointerDown(pointerType => Option.some(PressedPointerDown({ pointerType }))),
+            h.OnPointerDown(pointerType => Option.some(Message.PressedPointerDown({ pointerType }))),
         ], [h.span([], [`type=${model.lastPointerType}`])]),
         h.span([h.AriaLabel('no handler')], ['orphan']),
     ]);