summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorAndrew Cady <d@jerkface.net>2015-12-11 15:27:42 -0500
committerAndrew Cady <d@jerkface.net>2015-12-11 15:27:42 -0500
commit4c4ca8260b94aa74de61d17672d6875e015f7f4e (patch)
tree01856b418d237101763d8e22be3cbad48fc2e8c7
parent44ffb5c2fd9d65368df7b6e9172ff3e258bf4169 (diff)
Renames.
-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 ()