Use mapped bus id

matthewkaney · matthewkaney · commit 9eca1d63c30a · 2024-04-18T19:47:55.000-04:00
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)

Original file line number	Diff line number	Diff line change
`@@ -194,7 +194,7 @@ toOSC maybeBusses pe osc@(OSC _ _)`
`194`	`194`	`(\(('^':k), (VI b)) -> do v <- Map.lookup k playmap`
`195`	`195`	`return $ (tsPart,`
`196`	`196`	`True, -- bus message ?`
`197`		`- O.Message "/c_set" [O.int32 b, toDatum v]`
	`197`	`+ O.Message "/c_set" [O.int32 (toBus b), toDatum v]`
`198`	`198`	`)`
`199`	`199`	`)`
`200`	`200`	`(Map.toList busmap)`