1 files changed, 1 insertions, 4 deletions

diff --git a/midi-dump.hs b/midi-dump.hs
index 74b9596..2534fd4 100644
--- a/midi-dump.hs
+++ b/midi-dump.hs
@@ -39,8 +39,7 @@ main = (do
   let publicAddr  = Addr.Cons c public
       privateAddr = Addr.Cons c private
 
---args <- getArgs
-  let args = ["20", "128"]
+  args <- getArgs
   case args of
      [input, output] ->
         (Connect.createFrom h public =<< Addr.parse h input)
@@ -53,8 +52,6 @@ main = (do
        >>
        Exit.exitFailure
 
-  putStrLn "Created ports."
-
   let wait = do
       ev <- Event.input h
       case Event.body ev of