1 files changed, 1 insertions, 1 deletions

diff --git a/midi-dump.hs b/midi-dump.hs
index 3de065b..51ebc6b 100644
--- a/midi-dump.hs
+++ b/midi-dump.hs
@@ -5,7 +5,7 @@ import qualified Data.Set as Set
 
 main = (do
 
-  alsaInit $ \h public private q publicAddr privateAddr -> do
+  withAlsaInit $ \h public private q publicAddr privateAddr -> do
   cmdlineAlsaConnect h public
 
   let