From 02dce7d08f92b1d255e3afca33034f481d1371a7 Mon Sep 17 00:00:00 2001
From: Jake Zerrer <him@jakezerrer.com>
Date: Wed, 26 Nov 2025 15:10:20 -0500
Subject: Add git-bug to flake

---
 src/unheard/theory.clj | 33 ++++++++++++++++-----------------
 1 file changed, 16 insertions(+), 17 deletions(-)

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

diff --git a/src/unheard/theory.clj b/src/unheard/theory.clj
index 5314ea7..30977a9 100644
--- a/src/unheard/theory.clj
+++ b/src/unheard/theory.clj
@@ -6,27 +6,26 @@
 
 (defn note
   [>clock start duration >value]
-  (lift (time-object start
-                     duration
-                     (m/stream
-                       (m/ap
-                         (let [[c v] (m/?> (m/relieve
-                                             (m/latest vector >clock >value)))]
-                           v))))))
+  (lift (time-object
+          start
+          duration
+          (m/stream (m/ap (let [[c v] (m/?> (m/relieve
+                                              (m/latest vector >clock >value)))]
+                            v))))))
 
 ;; BUG: 2d7f861
 (defn read
   [>clock timeline]
-  (m/relieve
-   (m/reductions {} nil
-                 (m/eduction (map vals)
-                             (m/reductions
-                              (fn [acc {:keys [id state value]}]
-                                (if (= :up state)
-                                  (assoc acc id value)
-                                  (dissoc acc id)))
-                              {}
-                              (reconcile-merge (point-query timeline >clock)))))))
+  (m/relieve (m/reductions
+               {}
+               nil
+               (m/eduction
+                 (map vals)
+                 (m/reductions
+                   (fn [acc {:keys [id state value]}]
+                     (if (= :up state) (assoc acc id value) (dissoc acc id)))
+                   {}
+                   (reconcile-merge (point-query timeline >clock)))))))
 
 (comment
   (def c (atom 0))
-- 
cgit v1.2.3