diff options
| author | Andrew Cady <d@jerkface.net> | 2014-01-14 08:20:42 -0500 |
|---|---|---|
| committer | Andrew Cady <d@jerkface.net> | 2014-01-14 08:20:42 -0500 |
| commit | 012d94f02eac3fef6e918a70846389b82cca4ec8 (patch) | |
| tree | fff59f5b6e25716da97a1ee830fc8ded2acfb7e5 /midi-dump.hs | |
| parent | e7547448ce9d4af01cd2a78036606f123a25cfaf (diff) | |
specify midi in/out ports via command line
Diffstat (limited to 'midi-dump.hs')
| -rw-r--r-- | midi-dump.hs | 5 |
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 | |||
| 39 | let publicAddr = Addr.Cons c public | 39 | let publicAddr = Addr.Cons c public |
| 40 | privateAddr = Addr.Cons c private | 40 | privateAddr = Addr.Cons c private |
| 41 | 41 | ||
| 42 | --args <- getArgs | 42 | args <- getArgs |
| 43 | let args = ["20", "128"] | ||
| 44 | case args of | 43 | case args of |
| 45 | [input, output] -> | 44 | [input, output] -> |
| 46 | (Connect.createFrom h public =<< Addr.parse h input) | 45 | (Connect.createFrom h public =<< Addr.parse h input) |
| @@ -53,8 +52,6 @@ main = (do | |||
| 53 | >> | 52 | >> |
| 54 | Exit.exitFailure | 53 | Exit.exitFailure |
| 55 | 54 | ||
| 56 | putStrLn "Created ports." | ||
| 57 | |||
| 58 | let wait = do | 55 | let wait = do |
| 59 | ev <- Event.input h | 56 | ev <- Event.input h |
| 60 | case Event.body ev of | 57 | case Event.body ev of |