diff options
| author | Andrew Cady <d@jerkface.net> | 2014-01-14 05:32:58 -0500 |
|---|---|---|
| committer | Andrew Cady <d@jerkface.net> | 2014-01-14 05:32:58 -0500 |
| commit | fcf7062c5ecbda5d2815caea624e1e04cc8be557 (patch) | |
| tree | a4ab7b925e274cc76443372e8d8a1f649b0a4093 /midi-dump.hs | |
| parent | b3a24f6cb37c0e59aaadb1ce699ecdd56c2cf40e (diff) | |
port opened, but read fails
Diffstat (limited to 'midi-dump.hs')
| -rw-r--r-- | midi-dump.hs | 7 |
1 files changed, 2 insertions, 5 deletions
diff --git a/midi-dump.hs b/midi-dump.hs index 38641cd..4d1946c 100644 --- a/midi-dump.hs +++ b/midi-dump.hs | |||
| @@ -47,10 +47,8 @@ findPort wantName f = do | |||
| 47 | when (name == wantName) $ do | 47 | when (name == wantName) $ do |
| 48 | client <- ClientInfo.getClient cinfo | 48 | client <- ClientInfo.getClient cinfo |
| 49 | PortInfo.queryLoop_ h client $ \pinfo -> do | 49 | PortInfo.queryLoop_ h client $ \pinfo -> do |
| 50 | cport <- PortInfo.getClient pinfo | 50 | port <- (fmap (\(Client.Cons p) -> p) $ PortInfo.getClient pinfo) |
| 51 | f $ show cport | 51 | f $ show port |
| 52 | -- port <- (fmap (\(Client.Cons p) -> p) $ PortInfo.getClient pinfo) | ||
| 53 | -- f port | ||
| 54 | 52 | ||
| 55 | main :: IO () | 53 | main :: IO () |
| 56 | main = (do | 54 | main = (do |
| @@ -70,7 +68,6 @@ main = (do | |||
| 70 | 68 | ||
| 71 | findPort "AXIS-49 2A" (connectAxis h clientID _p1) | 69 | findPort "AXIS-49 2A" (connectAxis h clientID _p1) |
| 72 | 70 | ||
| 73 | when False $ do | ||
| 74 | forever $ do | 71 | forever $ do |
| 75 | putStrLn "waiting for an event:" | 72 | putStrLn "waiting for an event:" |
| 76 | print =<< Event.input h) | 73 | print =<< Event.input h) |