add facility to queue midi output to synth

1 files changed, 2 insertions, 1 deletions

diff --git a/AlsaSeq.hs b/AlsaSeq.hs
index 7fff575..5b65967 100644
--- a/AlsaSeq.hs
+++ b/AlsaSeq.hs
@@ -193,6 +193,7 @@ forwardNoteEvent h q publicAddr ev = do
 
 -- data T = Cons { highPriority :: !Bool , tag :: !Tag , queue :: !Queue.T , time :: !Time.T , source :: !Addr.T , dest :: !Addr.T , body :: !Data } deriving Show
 
-  let (Event.Cons highPriority tag _ time _ _ body) = ev in Event.output h (Event.Cons highPriority tag q time publicAddr Addr.subscribers body)
+  let (Event.Cons highPriority tag _ time _ _ body) = ev
+  Event.output h (Event.Cons highPriority tag q time publicAddr Addr.subscribers body)
   Event.drainOutput h
   return ()