From 012d94f02eac3fef6e918a70846389b82cca4ec8 Mon Sep 17 00:00:00 2001 From: Andrew Cady Date: Tue, 14 Jan 2014 08:20:42 -0500 Subject: specify midi in/out ports via command line --- midi-dump.hs | 5 +---- 1 file changed, 1 insertion(+), 4 deletions(-) (limited to 'midi-dump.hs') 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 -- cgit v1.2.3