1 files changed, 2 insertions, 2 deletions

diff --git a/midi-dump.hs b/midi-dump.hs
index e6d2aca..b531b97 100644
--- a/midi-dump.hs
+++ b/midi-dump.hs
@@ -197,7 +197,7 @@ type MidiController = MidiControllerT IO
 playRecording :: Recording -> MidiController ()
 playRecording (RecordingInProgress _ _ evts@(_:_)) =
   mapM_ (uncurry delayNoteEv) (zip (subtract (head delays) <$> delays) events)
-  where (delays, events) = unzip $ fmap Event.body <$> reverse evts
+  where (delays, events) = unzip $ reverse $ unConvertEvents evts
 playRecording  _ = return ()
 
 getMidiSender :: MidiController MidiHook
@@ -219,7 +219,7 @@ processMidi = do
     liftIO $ threadDelay 15000 -- 15ms.  Seems like a lot, but it sounds OK.  Cuts CPU down to 2%.
   else do
     now <- getAbsTime
-    let newEvents = map ((,) now) events
+    let newEvents = map ((,) now . Event.body)  events
 
     liftIO $ printChordLn newKeys
     modify $ \s -> s { keysDown = newKeys, _recording = recordEvents (_recording s) newEvents, _lastTick = now }