hunk ./Sound/SC3/Lang/Control/Event.hs 257 --- | Generate @SC3@ 'O.OSC' messages describing 'Event'. Consults the +-- | Generate @SC3@ 'O.Bundle' messages describing 'Event'. Consults the hunk ./Sound/SC3/Lang/Control/Event.hs 259 -to_sc3_osc :: Time -> Int -> Event -> Maybe (O.OSC,O.OSC) -to_sc3_osc t j e = +to_sc3_bundle :: Time -> Int -> Event -> Maybe (O.Bundle,O.Bundle) +to_sc3_bundle t j e = hunk ./Sound/SC3/Lang/Control/Event.hs 279 - _ -> error "to_sc3_osc:m_on:type" + _ -> error "to_sc3_bundle:m_on:type" hunk ./Sound/SC3/Lang/Control/Midi.hs 94 -parse_b :: Integral n => OSC -> [n] +parse_b :: Integral n => Message -> [n] hunk ./Sound/SC3/Lang/Control/Midi.hs 101 -parse_c :: Integral n => OSC -> [n] +parse_c :: Integral n => Message -> [n] hunk ./Sound/SC3/Lang/Control/Midi.hs 108 -parse_m :: (Bits n,Integral n) => OSC -> Midi_Message n +parse_m :: (Bits n,Integral n) => Message -> Midi_Message n hunk ./Sound/SC3/Lang/Control/Midi.hs 154 -midi_act :: Midi_Receiver IO Int -> OSC -> StateT (K Int) IO () +midi_act :: Midi_Receiver IO Int -> Message -> StateT (K Int) IO () hunk ./Sound/SC3/Lang/Control/Midi.hs 169 - let step = liftIO (recv m_fd) >>= + let step = liftIO (recvMessage m_fd) >>= hunk ./Sound/SC3/Lang/Pattern/ID.hs 1061 - case E.to_sc3_osc t j e of + case E.to_sc3_bundle t j e of