move aconnect into separate function

1 files changed, 7 insertions, 5 deletions

diff --git a/midi-dump.hs b/midi-dump.hs
index e4bce6a..50f0020 100644
--- a/midi-dump.hs
+++ b/midi-dump.hs
@@ -92,11 +92,7 @@ alsaInit k = do
 
   k h public private q publicAddr privateAddr
 
-main :: IO ()
-main = (do
-
-  alsaInit $ \h public private q publicAddr privateAddr -> do
-
+cmdlineAlsaConnect h public = do
   args <- getArgs
   case args of
 
@@ -110,6 +106,12 @@ main = (do
         IO.hPutStrLn IO.stderr "need arguments: input-port output-port"
         Exit.exitFailure
 
+main :: IO ()
+main = (do
+
+  alsaInit $ \h public private q publicAddr privateAddr -> do
+  cmdlineAlsaConnect h public
+
   let wait keysDown = do
       pending <- Event.inputPending h True
       if (pending > 0)