effect-web-midi 0.1.12 → 0.1.14

package/dist/src/Parsing.js

@@ -1,2 +1,2 @@
-export { isControlChange, isPitchBendChange, withParsedDataField, withTouchpadPositionUpdates, } from "./internal/Parsing.js";
+export { isChannelPressure, isChannelPressurePayload, isControlChange, isControlChangePayload, isNotePress, isNotePressPayload, isNoteRelease, isNoteReleasePayload, isPitchBendChange, isPitchBendChangePayload, isTouchpadPositionUpdate, isTouchpadPositionUpdatePayload, isTouchpadRelease, isTouchpadReleasePayload, isUnknownReply, isUnknownReplyPayload, withParsedDataField, withTouchpadPositionUpdates, } from "./internal/Parsing.js";
 //# sourceMappingURL=Parsing.js.map

package/dist/src/Parsing.js.map

@@ -1 +1 @@
-{"version":3,"file":"Parsing.js","sourceRoot":"","sources":["../../src/Parsing.ts"],"names":[],"mappings":"AAAA,OAAO,EAEL,eAAe,EACf,iBAAiB,EAQjB,mBAAmB,EACnB,2BAA2B,GAC5B,MAAM,uBAAuB,CAAA"}
+{"version":3,"file":"Parsing.js","sourceRoot":"","sources":["../../src/Parsing.ts"],"names":[],"mappings":"AAAA,OAAO,EAIL,iBAAiB,EACjB,wBAAwB,EACxB,eAAe,EACf,sBAAsB,EACtB,WAAW,EACX,kBAAkB,EAClB,aAAa,EACb,oBAAoB,EACpB,iBAAiB,EACjB,wBAAwB,EACxB,wBAAwB,EACxB,+BAA+B,EAC/B,iBAAiB,EACjB,wBAAwB,EACxB,cAAc,EACd,qBAAqB,EAUrB,mBAAmB,EACnB,2BAA2B,GAC5B,MAAM,uBAAuB,CAAA"}

package/dist/src/internal/Parsing.js

@@ -13,7 +13,7 @@ import * as Stream from 'effect/Stream';
 export const withParsedDataField = (self) => Stream.map(self, ({ midiMessage, ...obj }) => ({
     ...obj,
     _tag: 'ParsedMIDIMessage',
-    midiMessage: dataEntryParser(midiMessage),
+    midiMessage: parseMidiMessagePayload(midiMessage),
 }));
 /**
  *
@@ -22,9 +22,9 @@ export const withParsedDataField = (self) => Stream.map(self, ({ midiMessage, ..
  */
 export const withTouchpadPositionUpdates = (self) => Stream.mapAccum(self, { x: null, y: null }, (ctx, current) => {
     const { midiMessage, ...rest } = current;
-    const state = isControlChange(midiMessage)
+    const state = isControlChangePayload(midiMessage)
         ? { ...ctx, y: midiMessage.value }
-        : isPitchBendChange(midiMessage)
+        : isPitchBendChangePayload(midiMessage)
             ? { ...ctx, x: midiMessage.value }
             : midiMessage._tag === 'Touchpad Release'
                 ? { x: null, y: null }
@@ -43,7 +43,7 @@ export const withTouchpadPositionUpdates = (self) => Stream.mapAccum(self, { x:
             : Stream.succeed(current),
     ];
 }).pipe(Stream.flatten());
-function dataEntryParser(midiMessage) {
+function parseMidiMessagePayload(rawPayload) {
     const unknown = () => {
         let stack = '';
         if ('stackTraceLimit' in Error &&
@@ -58,20 +58,20 @@ function dataEntryParser(midiMessage) {
         }
         const result = {
             _tag: 'Unknown Reply',
-            unexpectedData: midiMessage.toString(),
+            unexpectedData: rawPayload.toString(),
             stack,
         };
         return result;
     };
-    const status = midiMessage.at(0);
+    const status = rawPayload.at(0);
     if (status === undefined)
         return unknown();
-    const second = midiMessage.at(1);
+    const second = rawPayload.at(1);
     if (second === undefined)
         return unknown();
     const code = status >> 4;
     const channel = status & 0b1111;
-    if (midiMessage.length === 2) {
+    if (rawPayload.length === 2) {
         if (code === 0xd) {
             return {
                 _tag: 'Channel Pressure',
@@ -80,9 +80,9 @@ function dataEntryParser(midiMessage) {
             };
         }
     }
-    if (midiMessage.length !== 3)
+    if (rawPayload.length !== 3)
         return unknown();
-    const third = midiMessage.at(2);
+    const third = rawPayload.at(2);
     if (third === undefined)
         return unknown();
     if (code === 0x8) {
@@ -125,12 +125,20 @@ function dataEntryParser(midiMessage) {
     }
     return unknown();
 }
-export const isUnknownReply = (e) => e._tag === 'Unknown Reply';
-export const isNotePress = (e) => e._tag === 'Note Press';
-export const isChannelPressure = (e) => e._tag === 'Channel Pressure';
-export const isNoteRelease = (e) => e._tag === 'Note Release';
-export const isControlChange = (e) => e._tag === 'Control Change';
-export const isTouchpadRelease = (e) => e._tag === 'Touchpad Release';
-export const isPitchBendChange = (e) => e._tag === 'Pitch Bend Change';
-export const isTouchpadPositionUpdate = (e) => e._tag === 'Touchpad Position Update';
+export const isUnknownReplyPayload = (e) => e._tag === 'Unknown Reply';
+export const isUnknownReply = (e) => isUnknownReplyPayload(e.midiMessage);
+export const isNotePressPayload = (e) => e._tag === 'Note Press';
+export const isNotePress = (e) => isNotePressPayload(e.midiMessage);
+export const isChannelPressurePayload = (e) => e._tag === 'Channel Pressure';
+export const isChannelPressure = (e) => isChannelPressurePayload(e.midiMessage);
+export const isNoteReleasePayload = (e) => e._tag === 'Note Release';
+export const isNoteRelease = (e) => isNoteReleasePayload(e.midiMessage);
+export const isControlChangePayload = (e) => e._tag === 'Control Change';
+export const isControlChange = (e) => isControlChangePayload(e.midiMessage);
+export const isTouchpadReleasePayload = (e) => e._tag === 'Touchpad Release';
+export const isTouchpadRelease = (e) => isTouchpadReleasePayload(e.midiMessage);
+export const isPitchBendChangePayload = (e) => e._tag === 'Pitch Bend Change';
+export const isPitchBendChange = (e) => isPitchBendChangePayload(e.midiMessage);
+export const isTouchpadPositionUpdatePayload = (e) => e._tag === 'Touchpad Position Update';
+export const isTouchpadPositionUpdate = (e) => isTouchpadPositionUpdatePayload(e.midiMessage);
 //# sourceMappingURL=Parsing.js.map

package/dist/src/internal/Parsing.js.map

@@ -1 +1 @@
-{"version":3,"file":"Parsing.js","sourceRoot":"","sources":["../../../src/internal/Parsing.ts"],"names":[],"mappings":"AAAA;;;GAGG;AAEH,OAAO,KAAK,MAAM,MAAM,eAAe,CAAA;AAEvC,+EAA+E;AAC/E,mDAAmD;AAEnD;;;;GAIG;AACH,MAAM,CAAC,MAAM,mBAAmB,GAAG,CAKjC,IAA4B,EAC5B,EAAE,CACF,MAAM,CAAC,GAAG,CAAC,IAAI,EAAE,CAAC,EAAE,WAAW,EAAE,GAAG,GAAG,EAAE,EAAE,EAAE,CAAC,CAAC;IAC7C,GAAG,GAAG;IACN,IAAI,EAAE,mBAA4B;IAClC,WAAW,EAAE,eAAe,CAAC,WAAW,CAAC;CAC1C,CAAC,CAOD,CAAA;AAEH;;;;GAIG;AACH,MAAM,CAAC,MAAM,2BAA2B,GAAG,CAWzC,IAA4B,EAM5B,EAAE,CACF,MAAM,CAAC,QAAQ,CACb,IAAI,EACJ,EAAE,CAAC,EAAE,IAAqB,EAAE,CAAC,EAAE,IAAqB,EAAE,EACtD,CAAC,GAAG,EAAE,OAAO,EAAE,EAAE;IACf,MAAM,EAAE,WAAW,EAAE,GAAG,IAAI,EAAE,GAAG,OAAO,CAAA;IACxC,MAAM,KAAK,GAAG,eAAe,CAAC,WAAW,CAAC;QACxC,CAAC,CAAC,EAAE,GAAG,GAAG,EAAE,CAAC,EAAE,WAAW,CAAC,KAAK,EAAE;QAClC,CAAC,CAAC,iBAAiB,CAAC,WAAW,CAAC;YAC9B,CAAC,CAAC,EAAE,GAAG,GAAG,EAAE,CAAC,EAAE,WAAW,CAAC,KAAK,EAAE;YAClC,CAAC,CAAC,WAAW,CAAC,IAAI,KAAK,kBAAkB;gBACvC,CAAC,CAAC,EAAE,CAAC,EAAE,IAAI,EAAE,CAAC,EAAE,IAAI,EAAE;gBACtB,CAAC,CAAC,GAAG,CAAA;IAEX,OAAO;QACL,KAAK;QACL,KAAK,CAAC,CAAC,KAAK,IAAI,IAAI,KAAK,CAAC,CAAC,KAAK,IAAI;YAClC,CAAC,CAAC,MAAM,CAAC,IAAI,CAAC,OAAO,EAAE;gBACnB,GAAG,IAAI;gBACP,WAAW,EAAE;oBACX,IAAI,EAAE,0BAAmC;oBACzC,CAAC,EAAE,KAAK,CAAC,CAAC;oBACV,CAAC,EAAE,KAAK,CAAC,CAAC;iBACsB;aACnC,CAAC;YACJ,CAAC,CAAC,MAAM,CAAC,OAAO,CAAC,OAAO,CAAC;KAC5B,CAAA;AACH,CAAC,CACF,CAAC,IAAI,CAAC,MAAM,CAAC,OAAO,EAAE,CAAC,CAAA;AAW1B,SAAS,eAAe,CACtB,WAAoC;IAEpC,MAAM,OAAO,GAAG,GAAG,EAAE;QACnB,IAAI,KAAK,GAAG,EAAE,CAAA;QACd,IACE,iBAAiB,IAAI,KAAK;YAC1B,mBAAmB,IAAI,KAAK;YAC5B,OAAO,KAAK,CAAC,iBAAiB,KAAK,UAAU,EAC7C,CAAC;YACD,MAAM,EAAE,eAAe,EAAE,GAAG,KAAK,CAAA;YACjC,KAAK,CAAC,eAAe,GAAG,CAAC,CAAA;YACzB,MAAM,WAAW,GAAG,EAAuB,CAAA;YAC3C,KAAK,CAAC,iBAAiB,CAAC,WAAW,CAAC,CAAA;YACpC,KAAK,CAAC,eAAe,GAAG,eAAe,CAAA;YACvC,KAAK,GAAG,WAAW,CAAC,KAAK,IAAI,IAAI,KAAK,EAAE,CAAC,KAAK,IAAI,EAAE,CAAA;QACtD,CAAC;QACD,MAAM,MAAM,GAAG;YACb,IAAI,EAAE,eAAwB;YAC9B,cAAc,EAAE,WAAW,CAAC,QAAQ,EAAE;YACtC,KAAK;SACN,CAAA;QACD,OAAO,MAAM,CAAA;IACf,CAAC,CAAA;IAED,MAAM,MAAM,GAAG,WAAW,CAAC,EAAE,CAAC,CAAC,CAAC,CAAA;IAChC,IAAI,MAAM,KAAK,SAAS;QAAE,OAAO,OAAO,EAAE,CAAA;IAE1C,MAAM,MAAM,GAAG,WAAW,CAAC,EAAE,CAAC,CAAC,CAAC,CAAA;IAChC,IAAI,MAAM,KAAK,SAAS;QAAE,OAAO,OAAO,EAAE,CAAA;IAE1C,MAAM,IAAI,GAAG,MAAM,IAAI,CAAC,CAAA;IACxB,MAAM,OAAO,GAAG,MAAM,GAAG,MAAM,CAAA;IAE/B,IAAI,WAAW,CAAC,MAAM,KAAK,CAAC,EAAE,CAAC;QAC7B,IAAI,IAAI,KAAK,GAAG,EAAE,CAAC;YACjB,OAAO;gBACL,IAAI,EAAE,kBAAkB;gBACxB,OAAO;gBACP,QAAQ,EAAE,MAAM;aACjB,CAAA;QACH,CAAC;IACH,CAAC;IAED,IAAI,WAAW,CAAC,MAAM,KAAK,CAAC;QAAE,OAAO,OAAO,EAAE,CAAA;IAE9C,MAAM,KAAK,GAAG,WAAW,CAAC,EAAE,CAAC,CAAC,CAAC,CAAA;IAC/B,IAAI,KAAK,KAAK,SAAS;QAAE,OAAO,OAAO,EAAE,CAAA;IAEzC,IAAI,IAAI,KAAK,GAAG,EAAE,CAAC;QACjB,IAAI,KAAK,KAAK,IAAI;YAAE,OAAO,OAAO,EAAE,CAAA;QACpC,OAAO;YACL,IAAI,EAAE,cAAc;YACpB,OAAO;YACP,IAAI,EAAE,MAAM;SACb,CAAA;IACH,CAAC;IAED,IAAI,IAAI,KAAK,GAAG,EAAE,CAAC;QACjB,IAAI,KAAK,KAAK,CAAC;YACb,OAAO;gBACL,IAAI,EAAE,cAAc;gBACpB,OAAO;gBACP,IAAI,EAAE,MAAM;aACb,CAAA;QACH,OAAO;YACL,IAAI,EAAE,YAAY;YAClB,OAAO;YACP,IAAI,EAAE,MAAM;YACZ,QAAQ,EAAE,KAAK;SAChB,CAAA;IACH,CAAC;IAED,IAAI,IAAI,KAAK,GAAG,EAAE,CAAC;QACjB,OAAO;YACL,IAAI,EAAE,gBAAgB;YACtB,OAAO;YACP,OAAO,EAAE,MAAM;YACf,KAAK,EAAE,KAAK;SACb,CAAA;IACH,CAAC;IAED,IAAI,IAAI,KAAK,GAAG,EAAE,CAAC;QACjB,IAAI,MAAM,KAAK,CAAC,IAAI,KAAK,KAAK,IAAI;YAChC,OAAO,EAAE,IAAI,EAAE,kBAAkB,EAAE,OAAO,EAAE,CAAA;QAE9C,IAAI,MAAM,KAAK,KAAK;YAClB,OAAO,EAAE,IAAI,EAAE,mBAAmB,EAAE,OAAO,EAAE,KAAK,EAAE,MAAM,EAAE,CAAA;QAE9D,OAAO,OAAO,EAAE,CAAA;IAClB,CAAC;IAED,OAAO,OAAO,EAAE,CAAA;AAClB,CAAC;AASD,MAAM,CAAC,MAAM,cAAc,GAAG,CAAC,CAAmB,EAAqB,EAAE,CACvE,CAAC,CAAC,IAAI,KAAK,eAAe,CAAA;AAU5B,MAAM,CAAC,MAAM,WAAW,GAAG,CAAC,CAAmB,EAAkB,EAAE,CACjE,CAAC,CAAC,IAAI,KAAK,YAAY,CAAA;AASzB,MAAM,CAAC,MAAM,iBAAiB,GAAG,CAAC,CAAmB,EAAwB,EAAE,CAC7E,CAAC,CAAC,IAAI,KAAK,kBAAkB,CAAA;AAK/B,MAAM,CAAC,MAAM,aAAa,GAAG,CAAC,CAAmB,EAAoB,EAAE,CACrE,CAAC,CAAC,IAAI,KAAK,cAAc,CAAA;AAU3B,MAAM,CAAC,MAAM,eAAe,GAAG,CAAC,CAAmB,EAAsB,EAAE,CACzE,CAAC,CAAC,IAAI,KAAK,gBAAgB,CAAA;AAK7B,MAAM,CAAC,MAAM,iBAAiB,GAAG,CAAC,CAAmB,EAAwB,EAAE,CAC7E,CAAC,CAAC,IAAI,KAAK,kBAAkB,CAAA;AAS/B,MAAM,CAAC,MAAM,iBAAiB,GAAG,CAAC,CAAmB,EAAwB,EAAE,CAC7E,CAAC,CAAC,IAAI,KAAK,mBAAmB,CAAA;AAShC,MAAM,CAAC,MAAM,wBAAwB,GAAG,CAAC,CAExC,EAA+B,EAAE,CAAC,CAAC,CAAC,IAAI,KAAK,0BAA0B,CAAA"}
+{"version":3,"file":"Parsing.js","sourceRoot":"","sources":["../../../src/internal/Parsing.ts"],"names":[],"mappings":"AAAA;;;GAGG;AAEH,OAAO,KAAK,MAAM,MAAM,eAAe,CAAA;AAGvC,+EAA+E;AAC/E,mDAAmD;AAEnD;;;;GAIG;AACH,MAAM,CAAC,MAAM,mBAAmB,GAAG,CACjC,IAA4B,EACY,EAAE,CAC1C,MAAM,CAAC,GAAG,CAAC,IAAI,EAAE,CAAC,EAAE,WAAW,EAAE,GAAG,GAAG,EAAE,EAAE,EAAE,CAAC,CAAC;IAC7C,GAAG,GAAG;IACN,IAAI,EAAE,mBAAmB;IACzB,WAAW,EAAE,uBAAuB,CAAC,WAAW,CAAC;CAClD,CAAC,CAAC,CAAA;AAEL;;;;GAIG;AACH,MAAM,CAAC,MAAM,2BAA2B,GAAG,CAWzC,IAA4B,EAQ5B,EAAE,CACF,MAAM,CAAC,QAAQ,CACb,IAAI,EACJ,EAAE,CAAC,EAAE,IAAqB,EAAE,CAAC,EAAE,IAAqB,EAAE,EACtD,CAAC,GAAG,EAAE,OAAO,EAAE,EAAE;IACf,MAAM,EAAE,WAAW,EAAE,GAAG,IAAI,EAAE,GAAG,OAAO,CAAA;IACxC,MAAM,KAAK,GAAG,sBAAsB,CAAC,WAAW,CAAC;QAC/C,CAAC,CAAC,EAAE,GAAG,GAAG,EAAE,CAAC,EAAE,WAAW,CAAC,KAAK,EAAE;QAClC,CAAC,CAAC,wBAAwB,CAAC,WAAW,CAAC;YACrC,CAAC,CAAC,EAAE,GAAG,GAAG,EAAE,CAAC,EAAE,WAAW,CAAC,KAAK,EAAE;YAClC,CAAC,CAAC,WAAW,CAAC,IAAI,KAAK,kBAAkB;gBACvC,CAAC,CAAC,EAAE,CAAC,EAAE,IAAI,EAAE,CAAC,EAAE,IAAI,EAAE;gBACtB,CAAC,CAAC,GAAG,CAAA;IAEX,OAAO;QACL,KAAK;QACL,KAAK,CAAC,CAAC,KAAK,IAAI,IAAI,KAAK,CAAC,CAAC,KAAK,IAAI;YAClC,CAAC,CAAC,MAAM,CAAC,IAAI,CAAC,OAAO,EAAE;gBACnB,GAAG,IAAI;gBACP,WAAW,EAAE;oBACX,IAAI,EAAE,0BAAmC;oBACzC,CAAC,EAAE,KAAK,CAAC,CAAC;oBACV,CAAC,EAAE,KAAK,CAAC,CAAC;iBAC6B;aAC1C,CAAC;YACJ,CAAC,CAAC,MAAM,CAAC,OAAO,CAAC,OAAO,CAAC;KAC5B,CAAA;AACH,CAAC,CACF,CAAC,IAAI,CAAC,MAAM,CAAC,OAAO,EAAE,CAAC,CAAA;AA2B1B,SAAS,uBAAuB,CAC9B,UAAmC;IAEnC,MAAM,OAAO,GAAG,GAAG,EAAE;QACnB,IAAI,KAAK,GAAG,EAAE,CAAA;QACd,IACE,iBAAiB,IAAI,KAAK;YAC1B,mBAAmB,IAAI,KAAK;YAC5B,OAAO,KAAK,CAAC,iBAAiB,KAAK,UAAU,EAC7C,CAAC;YACD,MAAM,EAAE,eAAe,EAAE,GAAG,KAAK,CAAA;YACjC,KAAK,CAAC,eAAe,GAAG,CAAC,CAAA;YACzB,MAAM,WAAW,GAAG,EAAuB,CAAA;YAC3C,KAAK,CAAC,iBAAiB,CAAC,WAAW,CAAC,CAAA;YACpC,KAAK,CAAC,eAAe,GAAG,eAAe,CAAA;YACvC,KAAK,GAAG,WAAW,CAAC,KAAK,IAAI,IAAI,KAAK,EAAE,CAAC,KAAK,IAAI,EAAE,CAAA;QACtD,CAAC;QACD,MAAM,MAAM,GAAG;YACb,IAAI,EAAE,eAAwB;YAC9B,cAAc,EAAE,UAAU,CAAC,QAAQ,EAAE;YACrC,KAAK;SACN,CAAA;QACD,OAAO,MAAM,CAAA;IACf,CAAC,CAAA;IAED,MAAM,MAAM,GAAG,UAAU,CAAC,EAAE,CAAC,CAAC,CAAC,CAAA;IAC/B,IAAI,MAAM,KAAK,SAAS;QAAE,OAAO,OAAO,EAAE,CAAA;IAE1C,MAAM,MAAM,GAAG,UAAU,CAAC,EAAE,CAAC,CAAC,CAAC,CAAA;IAC/B,IAAI,MAAM,KAAK,SAAS;QAAE,OAAO,OAAO,EAAE,CAAA;IAE1C,MAAM,IAAI,GAAG,MAAM,IAAI,CAAC,CAAA;IACxB,MAAM,OAAO,GAAG,MAAM,GAAG,MAAM,CAAA;IAE/B,IAAI,UAAU,CAAC,MAAM,KAAK,CAAC,EAAE,CAAC;QAC5B,IAAI,IAAI,KAAK,GAAG,EAAE,CAAC;YACjB,OAAO;gBACL,IAAI,EAAE,kBAAkB;gBACxB,OAAO;gBACP,QAAQ,EAAE,MAAM;aACjB,CAAA;QACH,CAAC;IACH,CAAC;IAED,IAAI,UAAU,CAAC,MAAM,KAAK,CAAC;QAAE,OAAO,OAAO,EAAE,CAAA;IAE7C,MAAM,KAAK,GAAG,UAAU,CAAC,EAAE,CAAC,CAAC,CAAC,CAAA;IAC9B,IAAI,KAAK,KAAK,SAAS;QAAE,OAAO,OAAO,EAAE,CAAA;IAEzC,IAAI,IAAI,KAAK,GAAG,EAAE,CAAC;QACjB,IAAI,KAAK,KAAK,IAAI;YAAE,OAAO,OAAO,EAAE,CAAA;QACpC,OAAO;YACL,IAAI,EAAE,cAAc;YACpB,OAAO;YACP,IAAI,EAAE,MAAM;SACb,CAAA;IACH,CAAC;IAED,IAAI,IAAI,KAAK,GAAG,EAAE,CAAC;QACjB,IAAI,KAAK,KAAK,CAAC;YACb,OAAO;gBACL,IAAI,EAAE,cAAc;gBACpB,OAAO;gBACP,IAAI,EAAE,MAAM;aACb,CAAA;QACH,OAAO;YACL,IAAI,EAAE,YAAY;YAClB,OAAO;YACP,IAAI,EAAE,MAAM;YACZ,QAAQ,EAAE,KAAK;SAChB,CAAA;IACH,CAAC;IAED,IAAI,IAAI,KAAK,GAAG,EAAE,CAAC;QACjB,OAAO;YACL,IAAI,EAAE,gBAAgB;YACtB,OAAO;YACP,OAAO,EAAE,MAAM;YACf,KAAK,EAAE,KAAK;SACb,CAAA;IACH,CAAC;IAED,IAAI,IAAI,KAAK,GAAG,EAAE,CAAC;QACjB,IAAI,MAAM,KAAK,CAAC,IAAI,KAAK,KAAK,IAAI;YAChC,OAAO,EAAE,IAAI,EAAE,kBAAkB,EAAE,OAAO,EAAE,CAAA;QAE9C,IAAI,MAAM,KAAK,KAAK;YAClB,OAAO,EAAE,IAAI,EAAE,mBAAmB,EAAE,OAAO,EAAE,KAAK,EAAE,MAAM,EAAE,CAAA;QAE9D,OAAO,OAAO,EAAE,CAAA;IAClB,CAAC;IAED,OAAO,OAAO,EAAE,CAAA;AAClB,CAAC;AAWD,MAAM,CAAC,MAAM,qBAAqB,GAAG,CACnC,CAAe,EACW,EAAE,CAAC,CAAC,CAAC,IAAI,KAAK,eAAe,CAAA;AAEzD,MAAM,CAAC,MAAM,cAAc,GAAG,CAC5B,CAAkC,EACW,EAAE,CAC/C,qBAAqB,CAAC,CAAC,CAAC,WAAW,CAAC,CAAA;AAYtC,MAAM,CAAC,MAAM,kBAAkB,GAAG,CAAC,CAAe,EAAyB,EAAE,CAC3E,CAAC,CAAC,IAAI,KAAK,YAAY,CAAA;AAEzB,MAAM,CAAC,MAAM,WAAW,GAAG,CACzB,CAAkC,EACQ,EAAE,CAAC,kBAAkB,CAAC,CAAC,CAAC,WAAW,CAAC,CAAA;AAWhF,MAAM,CAAC,MAAM,wBAAwB,GAAG,CACtC,CAAe,EACc,EAAE,CAAC,CAAC,CAAC,IAAI,KAAK,kBAAkB,CAAA;AAE/D,MAAM,CAAC,MAAM,iBAAiB,GAAG,CAC/B,CAAkC,EACc,EAAE,CAClD,wBAAwB,CAAC,CAAC,CAAC,WAAW,CAAC,CAAA;AAOzC,MAAM,CAAC,MAAM,oBAAoB,GAAG,CAClC,CAAe,EACU,EAAE,CAAC,CAAC,CAAC,IAAI,KAAK,cAAc,CAAA;AAEvD,MAAM,CAAC,MAAM,aAAa,GAAG,CAC3B,CAAkC,EACU,EAAE,CAC9C,oBAAoB,CAAC,CAAC,CAAC,WAAW,CAAC,CAAA;AAYrC,MAAM,CAAC,MAAM,sBAAsB,GAAG,CACpC,CAAe,EACY,EAAE,CAAC,CAAC,CAAC,IAAI,KAAK,gBAAgB,CAAA;AAE3D,MAAM,CAAC,MAAM,eAAe,GAAG,CAC7B,CAAkC,EACY,EAAE,CAChD,sBAAsB,CAAC,CAAC,CAAC,WAAW,CAAC,CAAA;AAOvC,MAAM,CAAC,MAAM,wBAAwB,GAAG,CACtC,CAAe,EACc,EAAE,CAAC,CAAC,CAAC,IAAI,KAAK,kBAAkB,CAAA;AAE/D,MAAM,CAAC,MAAM,iBAAiB,GAAG,CAC/B,CAAkC,EACc,EAAE,CAClD,wBAAwB,CAAC,CAAC,CAAC,WAAW,CAAC,CAAA;AAWzC,MAAM,CAAC,MAAM,wBAAwB,GAAG,CACtC,CAAe,EACc,EAAE,CAAC,CAAC,CAAC,IAAI,KAAK,mBAAmB,CAAA;AAEhE,MAAM,CAAC,MAAM,iBAAiB,GAAG,CAC/B,CAAkC,EACc,EAAE,CAClD,wBAAwB,CAAC,CAAC,CAAC,WAAW,CAAC,CAAA;AAWzC,MAAM,CAAC,MAAM,+BAA+B,GAAG,CAAC,CAE/C,EAAsC,EAAE,CAAC,CAAC,CAAC,IAAI,KAAK,0BAA0B,CAAA;AAE/E,MAAM,CAAC,MAAM,wBAAwB,GAAG,CACtC,CAAkC,EACqB,EAAE,CACzD,+BAA+B,CAAC,CAAC,CAAC,WAAW,CAAC,CAAA"}

package/dist-types/src/Parsing.d.ts

@@ -1,2 +1,2 @@
-export { type ControlChange, isControlChange, isPitchBendChange, type NotePress, type NoteRelease, type ParsedMIDIMessages, type PitchBendChange, type TouchpadPositionUpdate, type TouchpadRelease, type UnknownReply, withParsedDataField, withTouchpadPositionUpdates, } from './internal/Parsing.ts';
+export { type ChannelPressurePayload, type ControlChangePayload, type DefaultParsedMIDIMessagePayload, isChannelPressure, isChannelPressurePayload, isControlChange, isControlChangePayload, isNotePress, isNotePressPayload, isNoteRelease, isNoteReleasePayload, isPitchBendChange, isPitchBendChangePayload, isTouchpadPositionUpdate, isTouchpadPositionUpdatePayload, isTouchpadRelease, isTouchpadReleasePayload, isUnknownReply, isUnknownReplyPayload, type MIDIMessage, type NotePressPayload, type NoteReleasePayload, type ParsedMIDIMessage, type PitchBendChangePayload, type TaggedObject, type TouchpadPositionUpdatePayload, type TouchpadReleasePayload, type UnknownReplyPayload, withParsedDataField, withTouchpadPositionUpdates, } from './internal/Parsing.ts';
 //# sourceMappingURL=Parsing.d.ts.map

package/dist-types/src/Parsing.d.ts.map

@@ -1 +1 @@
-{"version":3,"file":"Parsing.d.ts","sourceRoot":"","sources":["../../src/Parsing.ts"],"names":[],"mappings":"AAAA,OAAO,EACL,KAAK,aAAa,EAClB,eAAe,EACf,iBAAiB,EACjB,KAAK,SAAS,EACd,KAAK,WAAW,EAChB,KAAK,kBAAkB,EACvB,KAAK,eAAe,EACpB,KAAK,sBAAsB,EAC3B,KAAK,eAAe,EACpB,KAAK,YAAY,EACjB,mBAAmB,EACnB,2BAA2B,GAC5B,MAAM,uBAAuB,CAAA"}
+{"version":3,"file":"Parsing.d.ts","sourceRoot":"","sources":["../../src/Parsing.ts"],"names":[],"mappings":"AAAA,OAAO,EACL,KAAK,sBAAsB,EAC3B,KAAK,oBAAoB,EACzB,KAAK,+BAA+B,EACpC,iBAAiB,EACjB,wBAAwB,EACxB,eAAe,EACf,sBAAsB,EACtB,WAAW,EACX,kBAAkB,EAClB,aAAa,EACb,oBAAoB,EACpB,iBAAiB,EACjB,wBAAwB,EACxB,wBAAwB,EACxB,+BAA+B,EAC/B,iBAAiB,EACjB,wBAAwB,EACxB,cAAc,EACd,qBAAqB,EACrB,KAAK,WAAW,EAChB,KAAK,gBAAgB,EACrB,KAAK,kBAAkB,EACvB,KAAK,iBAAiB,EACtB,KAAK,sBAAsB,EAC3B,KAAK,YAAY,EACjB,KAAK,6BAA6B,EAClC,KAAK,sBAAsB,EAC3B,KAAK,mBAAmB,EACxB,mBAAmB,EACnB,2BAA2B,GAC5B,MAAM,uBAAuB,CAAA"}

package/dist-types/src/internal/Parsing.d.ts

@@ -3,101 +3,106 @@
  * MIDI API with the only MIDI device I have: nanoPAD v1
  */
 import * as Stream from 'effect/Stream';
+import type * as EMIDIInput from './EMIDIInput.ts';
 /**
  *
  * @param self
  * @returns
  */
-export declare const withParsedDataField: <A extends {
-    readonly midiMessage: Uint8Array<ArrayBuffer>;
-}, E, R>(self: Stream.Stream<A, E, R>) => Stream.Stream<Omit<A, "midiMessage" | "_tag"> & {
-    readonly _tag: "ParsedMIDIMessage";
-    readonly midiMessage: ParsedMIDIMessages;
-}, E, R>;
+export declare const withParsedDataField: <A extends MIDIMessage, E, R>(self: Stream.Stream<A, E, R>) => Stream.Stream<ParsedMIDIMessage, E, R>;
 /**
  *
  * @param self
  * @returns
  */
 export declare const withTouchpadPositionUpdates: <A extends {
-    midiMessage: ControlChange | TouchpadRelease | PitchBendChange | {
+    midiMessage: ControlChangePayload | TouchpadReleasePayload | PitchBendChangePayload | {
         _tag: string & {};
     };
 }, E, R>(self: Stream.Stream<A, E, R>) => Stream.Stream<A | (Omit<A, "midiMessage"> & {
-    readonly midiMessage: TouchpadPositionUpdate;
+    readonly midiMessage: TouchpadPositionUpdatePayload;
 }), E, R>;
-export type ParsedMIDIMessages = NoteRelease | NotePress | UnknownReply | ControlChange | ChannelPressure | TouchpadRelease | PitchBendChange;
-export interface UnknownReply extends Readonly<{
+export type DefaultParsedMIDIMessagePayload = NoteReleasePayload | NotePressPayload | UnknownReplyPayload | ControlChangePayload | ChannelPressurePayload | TouchpadReleasePayload | PitchBendChangePayload;
+export interface MIDIMessage {
+    readonly _tag: 'MIDIMessage';
+    readonly cameFrom: EMIDIInput.EMIDIInput;
+    readonly capturedAt: Date;
+    readonly midiMessage: Uint8Array<ArrayBuffer>;
+}
+export interface ParsedMIDIMessage<Payload extends TaggedObject = DefaultParsedMIDIMessagePayload> {
+    readonly _tag: 'ParsedMIDIMessage';
+    readonly cameFrom: EMIDIInput.EMIDIInput;
+    readonly capturedAt: Date;
+    readonly midiMessage: Payload;
+}
+export type TaggedObject = {
+    readonly _tag: string;
+};
+export interface UnknownReplyPayload extends Readonly<{
     _tag: 'Unknown Reply';
     unexpectedData: string;
     stack: string;
 }> {
 }
-export declare const isUnknownReply: (e: {
-    _tag: string;
-}) => e is UnknownReply;
-export interface NotePress extends Readonly<{
+export declare const isUnknownReplyPayload: (e: TaggedObject) => e is UnknownReplyPayload;
+export declare const isUnknownReply: (e: ParsedMIDIMessage<TaggedObject>) => e is ParsedMIDIMessage<UnknownReplyPayload>;
+export interface NotePressPayload extends Readonly<{
     _tag: 'Note Press';
     channel: number;
     note: number;
     velocity: number;
 }> {
 }
-export declare const isNotePress: (e: {
-    _tag: string;
-}) => e is NotePress;
-export interface ChannelPressure extends Readonly<{
+export declare const isNotePressPayload: (e: TaggedObject) => e is NotePressPayload;
+export declare const isNotePress: (e: ParsedMIDIMessage<TaggedObject>) => e is ParsedMIDIMessage<NotePressPayload>;
+export interface ChannelPressurePayload extends Readonly<{
     _tag: 'Channel Pressure';
     channel: number;
     velocity: number;
 }> {
 }
-export declare const isChannelPressure: (e: {
-    _tag: string;
-}) => e is ChannelPressure;
-export interface NoteRelease extends Readonly<{
+export declare const isChannelPressurePayload: (e: TaggedObject) => e is ChannelPressurePayload;
+export declare const isChannelPressure: (e: ParsedMIDIMessage<TaggedObject>) => e is ParsedMIDIMessage<ChannelPressurePayload>;
+export interface NoteReleasePayload extends Readonly<{
     _tag: 'Note Release';
     channel: number;
     note: number;
 }> {
 }
-export declare const isNoteRelease: (e: {
-    _tag: string;
-}) => e is NoteRelease;
-export interface ControlChange extends Readonly<{
+export declare const isNoteReleasePayload: (e: TaggedObject) => e is NoteReleasePayload;
+export declare const isNoteRelease: (e: ParsedMIDIMessage<TaggedObject>) => e is ParsedMIDIMessage<NoteReleasePayload>;
+export interface ControlChangePayload extends Readonly<{
     _tag: 'Control Change';
     channel: number;
     control: number;
     value: number;
 }> {
 }
-export declare const isControlChange: (e: {
-    _tag: string;
-}) => e is ControlChange;
-export interface TouchpadRelease extends Readonly<{
+export declare const isControlChangePayload: (e: TaggedObject) => e is ControlChangePayload;
+export declare const isControlChange: (e: ParsedMIDIMessage<TaggedObject>) => e is ParsedMIDIMessage<ControlChangePayload>;
+export interface TouchpadReleasePayload extends Readonly<{
     _tag: 'Touchpad Release';
     channel: number;
 }> {
 }
-export declare const isTouchpadRelease: (e: {
-    _tag: string;
-}) => e is TouchpadRelease;
-export interface PitchBendChange extends Readonly<{
+export declare const isTouchpadReleasePayload: (e: TaggedObject) => e is TouchpadReleasePayload;
+export declare const isTouchpadRelease: (e: ParsedMIDIMessage<TaggedObject>) => e is ParsedMIDIMessage<TouchpadReleasePayload>;
+export interface PitchBendChangePayload extends Readonly<{
     _tag: 'Pitch Bend Change';
     channel: number;
     value: number;
 }> {
 }
-export declare const isPitchBendChange: (e: {
-    _tag: string;
-}) => e is PitchBendChange;
-export interface TouchpadPositionUpdate extends Readonly<{
+export declare const isPitchBendChangePayload: (e: TaggedObject) => e is PitchBendChangePayload;
+export declare const isPitchBendChange: (e: ParsedMIDIMessage<TaggedObject>) => e is ParsedMIDIMessage<PitchBendChangePayload>;
+export interface TouchpadPositionUpdatePayload extends Readonly<{
     _tag: 'Touchpad Position Update';
     x: number;
     y: number;
 }> {
 }
-export declare const isTouchpadPositionUpdate: (e: {
+export declare const isTouchpadPositionUpdatePayload: (e: {
     _tag: string;
-}) => e is TouchpadPositionUpdate;
+}) => e is TouchpadPositionUpdatePayload;
+export declare const isTouchpadPositionUpdate: (e: ParsedMIDIMessage<TaggedObject>) => e is ParsedMIDIMessage<TouchpadPositionUpdatePayload>;
 //# sourceMappingURL=Parsing.d.ts.map

package/dist-types/src/internal/Parsing.d.ts.map

@@ -1 +1 @@
-{"version":3,"file":"Parsing.d.ts","sourceRoot":"","sources":["../../../src/internal/Parsing.ts"],"names":[],"mappings":"AAAA;;;GAGG;AAEH,OAAO,KAAK,MAAM,MAAM,eAAe,CAAA;AAKvC;;;;GAIG;AACH,eAAO,MAAM,mBAAmB,GAC9B,CAAC,SAAS;IAAE,QAAQ,CAAC,WAAW,EAAE,UAAU,CAAC,WAAW,CAAC,CAAA;CAAE,EAC3D,CAAC,EACD,CAAC,EAED,MAAM,MAAM,CAAC,MAAM,CAAC,CAAC,EAAE,CAAC,EAAE,CAAC,CAAC,KAMrB,MAAM,CAAC,MAAM,CAClB,IAAI,CAAC,CAAC,EAAE,aAAa,GAAG,MAAM,CAAC,GAAG;IAChC,QAAQ,CAAC,IAAI,EAAE,mBAAmB,CAAA;IAClC,QAAQ,CAAC,WAAW,EAAE,kBAAkB,CAAA;CACzC,EACD,CAAC,EACD,CAAC,CACF,CAAA;AAEH;;;;GAIG;AACH,eAAO,MAAM,2BAA2B,GACtC,CAAC,SAAS;IACR,WAAW,EACP,aAAa,GACb,eAAe,GACf,eAAe,GACf;QAAE,IAAI,EAAE,MAAM,GAAG,EAAE,CAAA;KAAE,CAAA;CAC1B,EACD,CAAC,EACD,CAAC,EAED,MAAM,MAAM,CAAC,MAAM,CAAC,CAAC,EAAE,CAAC,EAAE,CAAC,CAAC,KAC3B,MAAM,CAAC,MAAM,CACZ,CAAC,GACD,CAAC,IAAI,CAAC,CAAC,EAAE,aAAa,CAAC,GAAG;IAAE,QAAQ,CAAC,WAAW,EAAE,sBAAsB,CAAA;CAAE,CAAC,EAC7E,CAAC,EACD,CAAC,CA6BuB,CAAA;AAE1B,MAAM,MAAM,kBAAkB,GAC1B,WAAW,GACX,SAAS,GACT,YAAY,GACZ,aAAa,GACb,eAAe,GACf,eAAe,GACf,eAAe,CAAA;AAiGnB,MAAM,WAAW,YACf,SAAQ,QAAQ,CAAC;IACf,IAAI,EAAE,eAAe,CAAA;IACrB,cAAc,EAAE,MAAM,CAAA;IACtB,KAAK,EAAE,MAAM,CAAA;CACd,CAAC;CAAG;AAEP,eAAO,MAAM,cAAc,GAAI,GAAG;IAAE,IAAI,EAAE,MAAM,CAAA;CAAE,KAAG,CAAC,IAAI,YAC9B,CAAA;AAE5B,MAAM,WAAW,SACf,SAAQ,QAAQ,CAAC;IACf,IAAI,EAAE,YAAY,CAAA;IAClB,OAAO,EAAE,MAAM,CAAA;IACf,IAAI,EAAE,MAAM,CAAA;IACZ,QAAQ,EAAE,MAAM,CAAA;CACjB,CAAC;CAAG;AAEP,eAAO,MAAM,WAAW,GAAI,GAAG;IAAE,IAAI,EAAE,MAAM,CAAA;CAAE,KAAG,CAAC,IAAI,SAC9B,CAAA;AAEzB,MAAM,WAAW,eACf,SAAQ,QAAQ,CAAC;IACf,IAAI,EAAE,kBAAkB,CAAA;IACxB,OAAO,EAAE,MAAM,CAAA;IACf,QAAQ,EAAE,MAAM,CAAA;CACjB,CAAC;CAAG;AAEP,eAAO,MAAM,iBAAiB,GAAI,GAAG;IAAE,IAAI,EAAE,MAAM,CAAA;CAAE,KAAG,CAAC,IAAI,eAC9B,CAAA;AAE/B,MAAM,WAAW,WACf,SAAQ,QAAQ,CAAC;IAAE,IAAI,EAAE,cAAc,CAAC;IAAC,OAAO,EAAE,MAAM,CAAC;IAAC,IAAI,EAAE,MAAM,CAAA;CAAE,CAAC;CAAG;AAE9E,eAAO,MAAM,aAAa,GAAI,GAAG;IAAE,IAAI,EAAE,MAAM,CAAA;CAAE,KAAG,CAAC,IAAI,WAC9B,CAAA;AAE3B,MAAM,WAAW,aACf,SAAQ,QAAQ,CAAC;IACf,IAAI,EAAE,gBAAgB,CAAA;IACtB,OAAO,EAAE,MAAM,CAAA;IACf,OAAO,EAAE,MAAM,CAAA;IACf,KAAK,EAAE,MAAM,CAAA;CACd,CAAC;CAAG;AAEP,eAAO,MAAM,eAAe,GAAI,GAAG;IAAE,IAAI,EAAE,MAAM,CAAA;CAAE,KAAG,CAAC,IAAI,aAC9B,CAAA;AAE7B,MAAM,WAAW,eACf,SAAQ,QAAQ,CAAC;IAAE,IAAI,EAAE,kBAAkB,CAAC;IAAC,OAAO,EAAE,MAAM,CAAA;CAAE,CAAC;CAAG;AAEpE,eAAO,MAAM,iBAAiB,GAAI,GAAG;IAAE,IAAI,EAAE,MAAM,CAAA;CAAE,KAAG,CAAC,IAAI,eAC9B,CAAA;AAE/B,MAAM,WAAW,eACf,SAAQ,QAAQ,CAAC;IACf,IAAI,EAAE,mBAAmB,CAAA;IACzB,OAAO,EAAE,MAAM,CAAA;IACf,KAAK,EAAE,MAAM,CAAA;CACd,CAAC;CAAG;AAEP,eAAO,MAAM,iBAAiB,GAAI,GAAG;IAAE,IAAI,EAAE,MAAM,CAAA;CAAE,KAAG,CAAC,IAAI,eAC7B,CAAA;AAEhC,MAAM,WAAW,sBACf,SAAQ,QAAQ,CAAC;IACf,IAAI,EAAE,0BAA0B,CAAA;IAChC,CAAC,EAAE,MAAM,CAAA;IACT,CAAC,EAAE,MAAM,CAAA;CACV,CAAC;CAAG;AAEP,eAAO,MAAM,wBAAwB,GAAI,GAAG;IAC1C,IAAI,EAAE,MAAM,CAAA;CACb,KAAG,CAAC,IAAI,sBAA+D,CAAA"}
+{"version":3,"file":"Parsing.d.ts","sourceRoot":"","sources":["../../../src/internal/Parsing.ts"],"names":[],"mappings":"AAAA;;;GAGG;AAEH,OAAO,KAAK,MAAM,MAAM,eAAe,CAAA;AACvC,OAAO,KAAK,KAAK,UAAU,MAAM,iBAAiB,CAAA;AAKlD;;;;GAIG;AACH,eAAO,MAAM,mBAAmB,GAAI,CAAC,SAAS,WAAW,EAAE,CAAC,EAAE,CAAC,EAC7D,MAAM,MAAM,CAAC,MAAM,CAAC,CAAC,EAAE,CAAC,EAAE,CAAC,CAAC,KAC3B,MAAM,CAAC,MAAM,CAAC,iBAAiB,EAAE,CAAC,EAAE,CAAC,CAKnC,CAAA;AAEL;;;;GAIG;AACH,eAAO,MAAM,2BAA2B,GACtC,CAAC,SAAS;IACR,WAAW,EACP,oBAAoB,GACpB,sBAAsB,GACtB,sBAAsB,GACtB;QAAE,IAAI,EAAE,MAAM,GAAG,EAAE,CAAA;KAAE,CAAA;CAC1B,EACD,CAAC,EACD,CAAC,EAED,MAAM,MAAM,CAAC,MAAM,CAAC,CAAC,EAAE,CAAC,EAAE,CAAC,CAAC,KAC3B,MAAM,CAAC,MAAM,CACZ,CAAC,GACD,CAAC,IAAI,CAAC,CAAC,EAAE,aAAa,CAAC,GAAG;IACxB,QAAQ,CAAC,WAAW,EAAE,6BAA6B,CAAA;CACpD,CAAC,EACJ,CAAC,EACD,CAAC,CA6BuB,CAAA;AAE1B,MAAM,MAAM,+BAA+B,GACvC,kBAAkB,GAClB,gBAAgB,GAChB,mBAAmB,GACnB,oBAAoB,GACpB,sBAAsB,GACtB,sBAAsB,GACtB,sBAAsB,CAAA;AAE1B,MAAM,WAAW,WAAW;IAC1B,QAAQ,CAAC,IAAI,EAAE,aAAa,CAAA;IAC5B,QAAQ,CAAC,QAAQ,EAAE,UAAU,CAAC,UAAU,CAAA;IACxC,QAAQ,CAAC,UAAU,EAAE,IAAI,CAAA;IACzB,QAAQ,CAAC,WAAW,EAAE,UAAU,CAAC,WAAW,CAAC,CAAA;CAC9C;AAED,MAAM,WAAW,iBAAiB,CAChC,OAAO,SAAS,YAAY,GAAG,+BAA+B;IAE9D,QAAQ,CAAC,IAAI,EAAE,mBAAmB,CAAA;IAClC,QAAQ,CAAC,QAAQ,EAAE,UAAU,CAAC,UAAU,CAAA;IACxC,QAAQ,CAAC,UAAU,EAAE,IAAI,CAAA;IACzB,QAAQ,CAAC,WAAW,EAAE,OAAO,CAAA;CAC9B;AAiGD,MAAM,MAAM,YAAY,GAAG;IAAE,QAAQ,CAAC,IAAI,EAAE,MAAM,CAAA;CAAE,CAAA;AAEpD,MAAM,WAAW,mBACf,SAAQ,QAAQ,CAAC;IACf,IAAI,EAAE,eAAe,CAAA;IACrB,cAAc,EAAE,MAAM,CAAA;IACtB,KAAK,EAAE,MAAM,CAAA;CACd,CAAC;CAAG;AAEP,eAAO,MAAM,qBAAqB,GAChC,GAAG,YAAY,KACd,CAAC,IAAI,mBAAiD,CAAA;AAEzD,eAAO,MAAM,cAAc,GACzB,GAAG,iBAAiB,CAAC,YAAY,CAAC,KACjC,CAAC,IAAI,iBAAiB,CAAC,mBAAmB,CACP,CAAA;AAItC,MAAM,WAAW,gBACf,SAAQ,QAAQ,CAAC;IACf,IAAI,EAAE,YAAY,CAAA;IAClB,OAAO,EAAE,MAAM,CAAA;IACf,IAAI,EAAE,MAAM,CAAA;IACZ,QAAQ,EAAE,MAAM,CAAA;CACjB,CAAC;CAAG;AAEP,eAAO,MAAM,kBAAkB,GAAI,GAAG,YAAY,KAAG,CAAC,IAAI,gBACjC,CAAA;AAEzB,eAAO,MAAM,WAAW,GACtB,GAAG,iBAAiB,CAAC,YAAY,CAAC,KACjC,CAAC,IAAI,iBAAiB,CAAC,gBAAgB,CAAsC,CAAA;AAIhF,MAAM,WAAW,sBACf,SAAQ,QAAQ,CAAC;IACf,IAAI,EAAE,kBAAkB,CAAA;IACxB,OAAO,EAAE,MAAM,CAAA;IACf,QAAQ,EAAE,MAAM,CAAA;CACjB,CAAC;CAAG;AAEP,eAAO,MAAM,wBAAwB,GACnC,GAAG,YAAY,KACd,CAAC,IAAI,sBAAuD,CAAA;AAE/D,eAAO,MAAM,iBAAiB,GAC5B,GAAG,iBAAiB,CAAC,YAAY,CAAC,KACjC,CAAC,IAAI,iBAAiB,CAAC,sBAAsB,CACP,CAAA;AAIzC,MAAM,WAAW,kBACf,SAAQ,QAAQ,CAAC;IAAE,IAAI,EAAE,cAAc,CAAC;IAAC,OAAO,EAAE,MAAM,CAAC;IAAC,IAAI,EAAE,MAAM,CAAA;CAAE,CAAC;CAAG;AAE9E,eAAO,MAAM,oBAAoB,GAC/B,GAAG,YAAY,KACd,CAAC,IAAI,kBAA+C,CAAA;AAEvD,eAAO,MAAM,aAAa,GACxB,GAAG,iBAAiB,CAAC,YAAY,CAAC,KACjC,CAAC,IAAI,iBAAiB,CAAC,kBAAkB,CACP,CAAA;AAIrC,MAAM,WAAW,oBACf,SAAQ,QAAQ,CAAC;IACf,IAAI,EAAE,gBAAgB,CAAA;IACtB,OAAO,EAAE,MAAM,CAAA;IACf,OAAO,EAAE,MAAM,CAAA;IACf,KAAK,EAAE,MAAM,CAAA;CACd,CAAC;CAAG;AAEP,eAAO,MAAM,sBAAsB,GACjC,GAAG,YAAY,KACd,CAAC,IAAI,oBAAmD,CAAA;AAE3D,eAAO,MAAM,eAAe,GAC1B,GAAG,iBAAiB,CAAC,YAAY,CAAC,KACjC,CAAC,IAAI,iBAAiB,CAAC,oBAAoB,CACP,CAAA;AAIvC,MAAM,WAAW,sBACf,SAAQ,QAAQ,CAAC;IAAE,IAAI,EAAE,kBAAkB,CAAC;IAAC,OAAO,EAAE,MAAM,CAAA;CAAE,CAAC;CAAG;AAEpE,eAAO,MAAM,wBAAwB,GACnC,GAAG,YAAY,KACd,CAAC,IAAI,sBAAuD,CAAA;AAE/D,eAAO,MAAM,iBAAiB,GAC5B,GAAG,iBAAiB,CAAC,YAAY,CAAC,KACjC,CAAC,IAAI,iBAAiB,CAAC,sBAAsB,CACP,CAAA;AAIzC,MAAM,WAAW,sBACf,SAAQ,QAAQ,CAAC;IACf,IAAI,EAAE,mBAAmB,CAAA;IACzB,OAAO,EAAE,MAAM,CAAA;IACf,KAAK,EAAE,MAAM,CAAA;CACd,CAAC;CAAG;AAEP,eAAO,MAAM,wBAAwB,GACnC,GAAG,YAAY,KACd,CAAC,IAAI,sBAAwD,CAAA;AAEhE,eAAO,MAAM,iBAAiB,GAC5B,GAAG,iBAAiB,CAAC,YAAY,CAAC,KACjC,CAAC,IAAI,iBAAiB,CAAC,sBAAsB,CACP,CAAA;AAIzC,MAAM,WAAW,6BACf,SAAQ,QAAQ,CAAC;IACf,IAAI,EAAE,0BAA0B,CAAA;IAChC,CAAC,EAAE,MAAM,CAAA;IACT,CAAC,EAAE,MAAM,CAAA;CACV,CAAC;CAAG;AAEP,eAAO,MAAM,+BAA+B,GAAI,GAAG;IACjD,IAAI,EAAE,MAAM,CAAA;CACb,KAAG,CAAC,IAAI,6BAAsE,CAAA;AAE/E,eAAO,MAAM,wBAAwB,GACnC,GAAG,iBAAiB,CAAC,YAAY,CAAC,KACjC,CAAC,IAAI,iBAAiB,CAAC,6BAA6B,CACP,CAAA"}

package/package.json

@@ -1,6 +1,6 @@
 {
   "name": "effect-web-midi",
-  "version": "0.1.12",
+  "version": "0.1.14",
   "type": "module",
   "description": "Effect WEB MIDI",
   "license": "MIT",

package/src/Parsing.ts

@@ -1,14 +1,32 @@
 export {
-  type ControlChange,
+  type ChannelPressurePayload,
+  type ControlChangePayload,
+  type DefaultParsedMIDIMessagePayload,
+  isChannelPressure,
+  isChannelPressurePayload,
   isControlChange,
+  isControlChangePayload,
+  isNotePress,
+  isNotePressPayload,
+  isNoteRelease,
+  isNoteReleasePayload,
   isPitchBendChange,
-  type NotePress,
-  type NoteRelease,
-  type ParsedMIDIMessages,
-  type PitchBendChange,
-  type TouchpadPositionUpdate,
-  type TouchpadRelease,
-  type UnknownReply,
+  isPitchBendChangePayload,
+  isTouchpadPositionUpdate,
+  isTouchpadPositionUpdatePayload,
+  isTouchpadRelease,
+  isTouchpadReleasePayload,
+  isUnknownReply,
+  isUnknownReplyPayload,
+  type MIDIMessage,
+  type NotePressPayload,
+  type NoteReleasePayload,
+  type ParsedMIDIMessage,
+  type PitchBendChangePayload,
+  type TaggedObject,
+  type TouchpadPositionUpdatePayload,
+  type TouchpadReleasePayload,
+  type UnknownReplyPayload,
   withParsedDataField,
   withTouchpadPositionUpdates,
 } from './internal/Parsing.ts'

package/src/internal/Parsing.ts

@@ -4,6 +4,7 @@
  */
 
 import * as Stream from 'effect/Stream'
+import type * as EMIDIInput from './EMIDIInput.ts'
 
 //? NOTE: Look at the issue https://github.com/WebAudio/web-midi-api/issues/179
 // which discusses higher-level MIDI message access
@@ -13,25 +14,14 @@ import * as Stream from 'effect/Stream'
  * @param self
  * @returns
  */
-export const withParsedDataField = <
-  A extends { readonly midiMessage: Uint8Array<ArrayBuffer> },
-  E,
-  R,
->(
+export const withParsedDataField = <A extends MIDIMessage, E, R>(
   self: Stream.Stream<A, E, R>,
-) =>
+): Stream.Stream<ParsedMIDIMessage, E, R> =>
   Stream.map(self, ({ midiMessage, ...obj }) => ({
     ...obj,
-    _tag: 'ParsedMIDIMessage' as const,
-    midiMessage: dataEntryParser(midiMessage),
-  })) as Stream.Stream<
-    Omit<A, 'midiMessage' | '_tag'> & {
-      readonly _tag: 'ParsedMIDIMessage'
-      readonly midiMessage: ParsedMIDIMessages
-    },
-    E,
-    R
-  >
+    _tag: 'ParsedMIDIMessage',
+    midiMessage: parseMidiMessagePayload(midiMessage),
+  }))
 
 /**
  *
@@ -41,9 +31,9 @@ export const withParsedDataField = <
 export const withTouchpadPositionUpdates = <
   A extends {
     midiMessage:
-      | ControlChange
-      | TouchpadRelease
-      | PitchBendChange
+      | ControlChangePayload
+      | TouchpadReleasePayload
+      | PitchBendChangePayload
       | { _tag: string & {} }
   },
   E,
@@ -52,7 +42,9 @@ export const withTouchpadPositionUpdates = <
   self: Stream.Stream<A, E, R>,
 ): Stream.Stream<
   | A
-  | (Omit<A, 'midiMessage'> & { readonly midiMessage: TouchpadPositionUpdate }),
+  | (Omit<A, 'midiMessage'> & {
+      readonly midiMessage: TouchpadPositionUpdatePayload
+    }),
   E,
   R
 > =>
@@ -61,9 +53,9 @@ export const withTouchpadPositionUpdates = <
     { x: null as number | null, y: null as number | null },
     (ctx, current) => {
       const { midiMessage, ...rest } = current
-      const state = isControlChange(midiMessage)
+      const state = isControlChangePayload(midiMessage)
         ? { ...ctx, y: midiMessage.value }
-        : isPitchBendChange(midiMessage)
+        : isPitchBendChangePayload(midiMessage)
           ? { ...ctx, x: midiMessage.value }
           : midiMessage._tag === 'Touchpad Release'
             ? { x: null, y: null }
@@ -78,25 +70,41 @@ export const withTouchpadPositionUpdates = <
                 _tag: 'Touchpad Position Update' as const,
                 x: state.x,
                 y: state.y,
-              } satisfies TouchpadPositionUpdate,
+              } satisfies TouchpadPositionUpdatePayload,
             })
           : Stream.succeed(current),
       ]
     },
   ).pipe(Stream.flatten())
 
-export type ParsedMIDIMessages =
-  | NoteRelease
-  | NotePress
-  | UnknownReply
-  | ControlChange
-  | ChannelPressure
-  | TouchpadRelease
-  | PitchBendChange
-
-function dataEntryParser(
-  midiMessage: Uint8Array<ArrayBuffer>,
-): ParsedMIDIMessages {
+export type DefaultParsedMIDIMessagePayload =
+  | NoteReleasePayload
+  | NotePressPayload
+  | UnknownReplyPayload
+  | ControlChangePayload
+  | ChannelPressurePayload
+  | TouchpadReleasePayload
+  | PitchBendChangePayload
+
+export interface MIDIMessage {
+  readonly _tag: 'MIDIMessage'
+  readonly cameFrom: EMIDIInput.EMIDIInput
+  readonly capturedAt: Date
+  readonly midiMessage: Uint8Array<ArrayBuffer>
+}
+
+export interface ParsedMIDIMessage<
+  Payload extends TaggedObject = DefaultParsedMIDIMessagePayload,
+> {
+  readonly _tag: 'ParsedMIDIMessage'
+  readonly cameFrom: EMIDIInput.EMIDIInput
+  readonly capturedAt: Date
+  readonly midiMessage: Payload
+}
+
+function parseMidiMessagePayload(
+  rawPayload: Uint8Array<ArrayBuffer>,
+): DefaultParsedMIDIMessagePayload {
   const unknown = () => {
     let stack = ''
     if (
@@ -113,22 +121,22 @@ function dataEntryParser(
     }
     const result = {
       _tag: 'Unknown Reply' as const,
-      unexpectedData: midiMessage.toString(),
+      unexpectedData: rawPayload.toString(),
       stack,
     }
     return result
   }
 
-  const status = midiMessage.at(0)
+  const status = rawPayload.at(0)
   if (status === undefined) return unknown()
 
-  const second = midiMessage.at(1)
+  const second = rawPayload.at(1)
   if (second === undefined) return unknown()
 
   const code = status >> 4
   const channel = status & 0b1111
 
-  if (midiMessage.length === 2) {
+  if (rawPayload.length === 2) {
     if (code === 0xd) {
       return {
         _tag: 'Channel Pressure',
@@ -138,9 +146,9 @@ function dataEntryParser(
     }
   }
 
-  if (midiMessage.length !== 3) return unknown()
+  if (rawPayload.length !== 3) return unknown()
 
-  const third = midiMessage.at(2)
+  const third = rawPayload.at(2)
   if (third === undefined) return unknown()
 
   if (code === 0x8) {
@@ -189,17 +197,27 @@ function dataEntryParser(
   return unknown()
 }
 
-export interface UnknownReply
+export type TaggedObject = { readonly _tag: string }
+
+export interface UnknownReplyPayload
   extends Readonly<{
     _tag: 'Unknown Reply'
     unexpectedData: string
     stack: string
   }> {}
 
-export const isUnknownReply = (e: { _tag: string }): e is UnknownReply =>
-  e._tag === 'Unknown Reply'
+export const isUnknownReplyPayload = (
+  e: TaggedObject,
+): e is UnknownReplyPayload => e._tag === 'Unknown Reply'
 
-export interface NotePress
+export const isUnknownReply = (
+  e: ParsedMIDIMessage<TaggedObject>,
+): e is ParsedMIDIMessage<UnknownReplyPayload> =>
+  isUnknownReplyPayload(e.midiMessage)
+
+/////////////////////////////////////////////
+
+export interface NotePressPayload
   extends Readonly<{
     _tag: 'Note Press'
     channel: number
@@ -207,26 +225,48 @@ export interface NotePress
     velocity: number
   }> {}
 
-export const isNotePress = (e: { _tag: string }): e is NotePress =>
+export const isNotePressPayload = (e: TaggedObject): e is NotePressPayload =>
   e._tag === 'Note Press'
 
-export interface ChannelPressure
+export const isNotePress = (
+  e: ParsedMIDIMessage<TaggedObject>,
+): e is ParsedMIDIMessage<NotePressPayload> => isNotePressPayload(e.midiMessage)
+
+/////////////////////////////////////////////
+
+export interface ChannelPressurePayload
   extends Readonly<{
     _tag: 'Channel Pressure'
     channel: number
     velocity: number
   }> {}
 
-export const isChannelPressure = (e: { _tag: string }): e is ChannelPressure =>
-  e._tag === 'Channel Pressure'
+export const isChannelPressurePayload = (
+  e: TaggedObject,
+): e is ChannelPressurePayload => e._tag === 'Channel Pressure'
+
+export const isChannelPressure = (
+  e: ParsedMIDIMessage<TaggedObject>,
+): e is ParsedMIDIMessage<ChannelPressurePayload> =>
+  isChannelPressurePayload(e.midiMessage)
+
+/////////////////////////////////////////////
 
-export interface NoteRelease
+export interface NoteReleasePayload
   extends Readonly<{ _tag: 'Note Release'; channel: number; note: number }> {}
 
-export const isNoteRelease = (e: { _tag: string }): e is NoteRelease =>
-  e._tag === 'Note Release'
+export const isNoteReleasePayload = (
+  e: TaggedObject,
+): e is NoteReleasePayload => e._tag === 'Note Release'
 
-export interface ControlChange
+export const isNoteRelease = (
+  e: ParsedMIDIMessage<TaggedObject>,
+): e is ParsedMIDIMessage<NoteReleasePayload> =>
+  isNoteReleasePayload(e.midiMessage)
+
+/////////////////////////////////////////////
+
+export interface ControlChangePayload
   extends Readonly<{
     _tag: 'Control Change'
     channel: number
@@ -234,32 +274,61 @@ export interface ControlChange
     value: number
   }> {}
 
-export const isControlChange = (e: { _tag: string }): e is ControlChange =>
-  e._tag === 'Control Change'
+export const isControlChangePayload = (
+  e: TaggedObject,
+): e is ControlChangePayload => e._tag === 'Control Change'
+
+export const isControlChange = (
+  e: ParsedMIDIMessage<TaggedObject>,
+): e is ParsedMIDIMessage<ControlChangePayload> =>
+  isControlChangePayload(e.midiMessage)
 
-export interface TouchpadRelease
+/////////////////////////////////////////////
+
+export interface TouchpadReleasePayload
   extends Readonly<{ _tag: 'Touchpad Release'; channel: number }> {}
 
-export const isTouchpadRelease = (e: { _tag: string }): e is TouchpadRelease =>
-  e._tag === 'Touchpad Release'
+export const isTouchpadReleasePayload = (
+  e: TaggedObject,
+): e is TouchpadReleasePayload => e._tag === 'Touchpad Release'
+
+export const isTouchpadRelease = (
+  e: ParsedMIDIMessage<TaggedObject>,
+): e is ParsedMIDIMessage<TouchpadReleasePayload> =>
+  isTouchpadReleasePayload(e.midiMessage)
+
+/////////////////////////////////////////////
 
-export interface PitchBendChange
+export interface PitchBendChangePayload
   extends Readonly<{
     _tag: 'Pitch Bend Change'
     channel: number
     value: number
   }> {}
 
-export const isPitchBendChange = (e: { _tag: string }): e is PitchBendChange =>
-  e._tag === 'Pitch Bend Change'
+export const isPitchBendChangePayload = (
+  e: TaggedObject,
+): e is PitchBendChangePayload => e._tag === 'Pitch Bend Change'
 
-export interface TouchpadPositionUpdate
+export const isPitchBendChange = (
+  e: ParsedMIDIMessage<TaggedObject>,
+): e is ParsedMIDIMessage<PitchBendChangePayload> =>
+  isPitchBendChangePayload(e.midiMessage)
+
+/////////////////////////////////////////////
+
+export interface TouchpadPositionUpdatePayload
   extends Readonly<{
     _tag: 'Touchpad Position Update'
     x: number
     y: number
   }> {}
 
-export const isTouchpadPositionUpdate = (e: {
+export const isTouchpadPositionUpdatePayload = (e: {
   _tag: string
-}): e is TouchpadPositionUpdate => e._tag === 'Touchpad Position Update'
+}): e is TouchpadPositionUpdatePayload => e._tag === 'Touchpad Position Update'
+
+export const isTouchpadPositionUpdate = (
+  e: ParsedMIDIMessage<TaggedObject>,
+): e is ParsedMIDIMessage<TouchpadPositionUpdatePayload> =>
+  isTouchpadPositionUpdatePayload(e.midiMessage)