1 files changed, 3 insertions, 4 deletions

diff --git a/AlsaSeq.hs b/AlsaSeq.hs
index 99e7c80..8fb5bd2 100644
--- a/AlsaSeq.hs
+++ b/AlsaSeq.hs
@@ -139,15 +139,14 @@ parseAlsaEvents h keysDown immediate = loop keysDown
         return keysDown
       else do
         ev <- Event.input h
+        immediate ev
         case Event.body ev of
-           Event.NoteEv Event.NoteOn n  -> do
-             immediate ev
+           Event.NoteEv Event.NoteOn n ->
              if (Event.unVelocity (Event.noteVelocity n) == 0) then
                loop (Set.delete (Event.noteChannel n, Event.noteNote n) keysDown)
              else
                loop (Set.insert (Event.noteChannel n, Event.noteNote n) keysDown)
-           Event.NoteEv Event.NoteOff n -> do
-             immediate ev
+           Event.NoteEv Event.NoteOff n ->
              loop (Set.delete (Event.noteChannel n, Event.noteNote n) keysDown)
            _ -> loop keysDown