diff options
Diffstat (limited to 'midi-dump.hs')
| -rw-r--r-- | midi-dump.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/midi-dump.hs b/midi-dump.hs index 4c74792..534671f 100644 --- a/midi-dump.hs +++ b/midi-dump.hs | |||
| @@ -215,7 +215,7 @@ playRecording = playEvents . playableEvents | |||
| 215 | playEvents :: [RecordedEvent] -> RWST LoopEnv () LoopState IO () | 215 | playEvents :: [RecordedEvent] -> RWST LoopEnv () LoopState IO () |
| 216 | playEvents evts@(_:_) = | 216 | playEvents evts@(_:_) = |
| 217 | mapM_ (uncurry delayNoteEv) (zip (subtract (head delays) <$> delays) events) | 217 | mapM_ (uncurry delayNoteEv) (zip (subtract (head delays) <$> delays) events) |
| 218 | where (delays, events) = unzip $ reverse $ unConvertEvents evts | 218 | where (delays, events) = unzip $ reverse $ unConvertEvents $ (fmap.fmap) (setChannel 1) evts |
| 219 | playEvents _ = return () | 219 | playEvents _ = return () |
| 220 | 220 | ||
| 221 | getMidiSender :: MidiController MidiHook | 221 | getMidiSender :: MidiController MidiHook |