Output a message whenever a midi file is saved.

1 files changed, 3 insertions, 2 deletions

diff --git a/midi-dump.hs b/midi-dump.hs
index 56a1d50..5084258 100644
--- a/midi-dump.hs
+++ b/midi-dump.hs
@@ -240,7 +240,6 @@ processCommand "save" = do
   recording <- gets _replay
   filename <- chooseFileName recording
   saveRecording filename recording
-  liftIO $ putStrLn $ "Saved to " ++ filename
 processCommand "dump" = sqlSelectEVERYTHING >>= saveRecording "dumped.mid" . mconcat
 processCommand "C" = do
   let notes = (Event.NoteEv Event.NoteOn . mkNote) <$> [60, 64, 67]
@@ -280,7 +279,9 @@ backgroundWithWait fn = do
   modify $ \s -> s { _waitThreads = wait:_waitThreads s }
 
 saveEvents :: FilePath -> [RecordedEvent] -> MidiController ()
-saveEvents file evts@(_:_) = backgroundWithWait $ Codec.Midi.exportFile file (toSingleTrackMidi evts)
+saveEvents file evts@(_:_) = backgroundWithWait $ do
+  Codec.Midi.exportFile file (toSingleTrackMidi evts)
+  liftIO $ putStrLn $ "Saved to " ++ file
 saveEvents _ _ = return ()
 
 -- NOTE: The list must be in ascending order for this to work