From 9eca1d63c30ab09a6d4d05f762b612ba1a47ed8e Mon Sep 17 00:00:00 2001 From: Matthew Kaney Date: Thu, 18 Apr 2024 19:47:55 -0400 Subject: [PATCH] Use mapped bus id --- src/Sound/Tidal/Stream/Process.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/Sound/Tidal/Stream/Process.hs b/src/Sound/Tidal/Stream/Process.hs index 2a611667..7c295edc 100644 --- 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)