From 4c4ca8260b94aa74de61d17672d6875e015f7f4e Mon Sep 17 00:00:00 2001 From: Andrew Cady Date: Fri, 11 Dec 2015 15:27:42 -0500 Subject: Renames. --- midi-dump.hs | 6 +++--- 1 file 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 import qualified Sound.ALSA.Sequencer.Address import qualified Sound.ALSA.Sequencer.Port import qualified Sound.ALSA.Sequencer.Queue -import qualified Sound.ALSA.Sequencer.Time as Time -import qualified Sound.ALSA.Sequencer.RealTime as RealTime +import qualified Sound.ALSA.Sequencer.Time as AlsaTime +import qualified Sound.ALSA.Sequencer.RealTime as AlsaRealTime import Midi import RealTimeQueue as Q hiding (null) @@ -195,7 +195,7 @@ _playNote noteOn note = where onoff = if noteOn then Event.NoteOn else Event.NoteOff delayEvent :: Event.T -> TimeSpec -> Event.T -delayEvent evt ts = evt {Event.time = Time.consRel $ Time.Real (RealTime.fromInteger nanosecs)} +delayEvent evt ts = evt {Event.time = AlsaTime.consRel $ AlsaTime.Real (AlsaRealTime.fromInteger nanosecs)} where nanosecs = timeSpecAsNanoSecs ts playNoteEv :: Event.Data -> MidiController () -- cgit v1.2.3