summaryrefslogtreecommitdiff
path: root/midi-dump.hs
diff options
context:
space:
mode:
Diffstat (limited to 'midi-dump.hs')
-rw-r--r--midi-dump.hs6
1 files changed, 3 insertions, 3 deletions
diff --git a/midi-dump.hs b/midi-dump.hs
index 1fb1fdd..4a403f4 100644
--- a/midi-dump.hs
+++ b/midi-dump.hs
@@ -25,8 +25,8 @@ import qualified Sound.ALSA.Sequencer
25import qualified Sound.ALSA.Sequencer.Address 25import qualified Sound.ALSA.Sequencer.Address
26import qualified Sound.ALSA.Sequencer.Port 26import qualified Sound.ALSA.Sequencer.Port
27import qualified Sound.ALSA.Sequencer.Queue 27import qualified Sound.ALSA.Sequencer.Queue
28import qualified Sound.ALSA.Sequencer.Time as Time 28import qualified Sound.ALSA.Sequencer.Time as AlsaTime
29import qualified Sound.ALSA.Sequencer.RealTime as RealTime 29import qualified Sound.ALSA.Sequencer.RealTime as AlsaRealTime
30 30
31import Midi 31import Midi
32import RealTimeQueue as Q hiding (null) 32import RealTimeQueue as Q hiding (null)
@@ -195,7 +195,7 @@ _playNote noteOn note =
195 where onoff = if noteOn then Event.NoteOn else Event.NoteOff 195 where onoff = if noteOn then Event.NoteOn else Event.NoteOff
196 196
197delayEvent :: Event.T -> TimeSpec -> Event.T 197delayEvent :: Event.T -> TimeSpec -> Event.T
198delayEvent evt ts = evt {Event.time = Time.consRel $ Time.Real (RealTime.fromInteger nanosecs)} 198delayEvent evt ts = evt {Event.time = AlsaTime.consRel $ AlsaTime.Real (AlsaRealTime.fromInteger nanosecs)}
199 where nanosecs = timeSpecAsNanoSecs ts 199 where nanosecs = timeSpecAsNanoSecs ts
200 200
201playNoteEv :: Event.Data -> MidiController () 201playNoteEv :: Event.Data -> MidiController ()