1 files changed, 10 insertions, 0 deletions

diff --git a/Midi.hs b/Midi.hs
index cc14eb6..eac587c 100644
--- a/Midi.hs
+++ b/Midi.hs
@@ -91,6 +91,16 @@ convertEvents = mapMaybe (maybesnd . fmap conv)
       cpv f c p v = f (fi $ Event.unChannel c) (fi $ Event.unPitch p) (fi $ Event.unVelocity v)
       fi = fromIntegral
 
+setChannel :: Codec.Midi.Channel -> Codec.Midi.Message -> Codec.Midi.Message
+setChannel c (NoteOff _ k v) = (NoteOff c k v)
+setChannel c (NoteOn  _ k v) = (NoteOn  c k v)
+setChannel c (ProgramChange _ p) = (ProgramChange c p)
+setChannel c (ControlChange _ n v) = (ControlChange c n v)
+setChannel c (KeyPressure _ k p) = (KeyPressure c k p)
+setChannel c (ChannelPressure _ p) = (ChannelPressure c p)
+setChannel c (PitchWheel _ p) = (PitchWheel c p)
+setChannel _ x = x
+
 unConvertEvents :: [(TimeSpec, Codec.Midi.Message)] -> [(TimeSpec, Event.Data)]
 unConvertEvents = mapMaybe (maybesnd . fmap conv)
     where