From c9e4f877402fbadaed1e8e3a0e41125e2188b482 Mon Sep 17 00:00:00 2001
From: Jake Zerrer <him@jakezerrer.com>
Date: Fri, 14 Nov 2025 09:14:59 -0500
Subject: Create first draft of time-object

---
 src/unheard/midi.clj | 31 +++++++++++++++----------------
 1 file changed, 15 insertions(+), 16 deletions(-)

(limited to 'src/unheard/midi.clj')

diff --git a/src/unheard/midi.clj b/src/unheard/midi.clj
index c3759fe..93fd6c0 100644
--- a/src/unheard/midi.clj
+++ b/src/unheard/midi.clj
@@ -176,22 +176,21 @@
 
   `flow-handler` should return a flow."
   [name flow-handler]
-  (m/ap
-   (try
-     (let [device
-           (first
-            (select-devices (get-all-midi-device-info)
-                            name
-                            true false))]
-       (if device
-         (m/?
-          (with-device device
-            (fn [d]
-              (with-tx d
-                (fn [f]
-                  (m/reduce prn nil (flow-handler f)))))))
-         (m/amb)))
-     (catch missionary.Cancelled _ (m/amb)))))
+  (m/sp
+    (let [device
+          (first
+           (select-devices (get-all-midi-device-info)
+                           name
+                           true false))]
+      (if device
+        (m/?
+         (with-device device
+           (fn [d]
+             (with-tx d
+               (fn [f]
+                 (m/reduce prn nil (flow-handler f)))))))
+        (m/amb)))
+    ))
 
 ;; TODO: Move elsewhere
 (defn echo
-- 
cgit v1.2.3