diff options
author | Andrew Cady <d@jerkface.net> | 2015-12-11 15:27:42 -0500 |
---|---|---|
committer | Andrew Cady <d@jerkface.net> | 2015-12-11 15:27:42 -0500 |
commit | 4c4ca8260b94aa74de61d17672d6875e015f7f4e (patch) | |
tree | 01856b418d237101763d8e22be3cbad48fc2e8c7 | |
parent | 44ffb5c2fd9d65368df7b6e9172ff3e258bf4169 (diff) |
Renames.
-rw-r--r-- | midi-dump.hs | 6 |
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 | |||
25 | import qualified Sound.ALSA.Sequencer.Address | 25 | import qualified Sound.ALSA.Sequencer.Address |
26 | import qualified Sound.ALSA.Sequencer.Port | 26 | import qualified Sound.ALSA.Sequencer.Port |
27 | import qualified Sound.ALSA.Sequencer.Queue | 27 | import qualified Sound.ALSA.Sequencer.Queue |
28 | import qualified Sound.ALSA.Sequencer.Time as Time | 28 | import qualified Sound.ALSA.Sequencer.Time as AlsaTime |
29 | import qualified Sound.ALSA.Sequencer.RealTime as RealTime | 29 | import qualified Sound.ALSA.Sequencer.RealTime as AlsaRealTime |
30 | 30 | ||
31 | import Midi | 31 | import Midi |
32 | import RealTimeQueue as Q hiding (null) | 32 | import 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 | ||
197 | delayEvent :: Event.T -> TimeSpec -> Event.T | 197 | delayEvent :: Event.T -> TimeSpec -> Event.T |
198 | delayEvent evt ts = evt {Event.time = Time.consRel $ Time.Real (RealTime.fromInteger nanosecs)} | 198 | delayEvent evt ts = evt {Event.time = AlsaTime.consRel $ AlsaTime.Real (AlsaRealTime.fromInteger nanosecs)} |
199 | where nanosecs = timeSpecAsNanoSecs ts | 199 | where nanosecs = timeSpecAsNanoSecs ts |
200 | 200 | ||
201 | playNoteEv :: Event.Data -> MidiController () | 201 | playNoteEv :: Event.Data -> MidiController () |