diff options
-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) |