From fcf7062c5ecbda5d2815caea624e1e04cc8be557 Mon Sep 17 00:00:00 2001 From: Andrew Cady Date: Tue, 14 Jan 2014 05:32:58 -0500 Subject: port opened, but read fails --- midi-dump.hs | 7 ++----- 1 file changed, 2 insertions(+), 5 deletions(-) (limited to 'midi-dump.hs') 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 when (name == wantName) $ do client <- ClientInfo.getClient cinfo PortInfo.queryLoop_ h client $ \pinfo -> do - cport <- PortInfo.getClient pinfo - f $ show cport --- port <- (fmap (\(Client.Cons p) -> p) $ PortInfo.getClient pinfo) --- f port + port <- (fmap (\(Client.Cons p) -> p) $ PortInfo.getClient pinfo) + f $ show port main :: IO () main = (do @@ -70,7 +68,6 @@ main = (do findPort "AXIS-49 2A" (connectAxis h clientID _p1) - when False $ do forever $ do putStrLn "waiting for an event:" print =<< Event.input h) -- cgit v1.2.3