Use mapped bus id

tidalcycles · yaxu · Feb 5, 2025 · Jul 5, 2023 · Jul 6, 2023 · Jul 17, 2023
commit 9eca1d63c30ab09a6d4d05f762b612ba1a47ed8e
diff --git a/src/Sound/Tidal/Stream/Process.hs b/src/Sound/Tidal/Stream/Process.hs
@@ -194,7 +194,7 @@ toOSC maybeBusses pe osc@(OSC _ _)
                     (\(('^':k), (VI b)) -> do v <- Map.lookup k playmap
                                               return $ (tsPart,
                                                         True, -- bus message ?
-                                                        O.Message "/c_set" [O.int32 b, toDatum v]
+                                                        O.Message "/c_set" [O.int32 (toBus b), toDatum v]
                                                       )
                     )
                     (Map.toList busmap)