1 files changed, 2 insertions, 0 deletions

diff --git a/midi-dump.hs b/midi-dump.hs
index 0082987..59a9df5 100644
--- a/midi-dump.hs
+++ b/midi-dump.hs
@@ -45,6 +45,7 @@ import qualified Data.Set as Set
 import Data.Set (Set)
 
 import System.IO
+import AlsaShutUp
 
 verbose :: Bool
 verbose = False
@@ -200,6 +201,7 @@ main' = withAlsaInit $ \h public private q publicAddr privateAddr -> do
 
   let env = LoopEnv saver sqlite startTime startTimeReal h public private q publicAddr privateAddr doSave False lineReader
 
+  void shutUp
   putStrLn "Rock on!"
   (_, ()) <- execRWST mainLoop env $ initializeState startTimeReal
   return ()