backup

1 files changed, 13 insertions, 8 deletions

diff --git a/midi-dump.hs b/midi-dump.hs
index 3652162..38641cd 100644
--- a/midi-dump.hs
+++ b/midi-dump.hs
@@ -14,6 +14,7 @@ import Text.Printf (printf, )
 import Control.Monad (liftM5, liftM2, join, when, filterM, forM_)
 
 import Sound.ALSA.Sequencer.Connect as AlsaConn
+import qualified Sound.ALSA.Sequencer.Address as Addr
 
 
 listPorts :: IO ()
@@ -46,8 +47,10 @@ findPort wantName f = do
       when (name == wantName) $ do
         client <- ClientInfo.getClient cinfo
         PortInfo.queryLoop_ h client $ \pinfo -> do
-          port <- (fmap (\(Client.Cons p) -> p) $ PortInfo.getClient pinfo)
-          f port
+          cport <- PortInfo.getClient pinfo
+          f $ show cport
+--        port <- (fmap (\(Client.Cons p) -> p) $ PortInfo.getClient pinfo)
+--        f port
 
 main :: IO ()
 main = (do
@@ -63,11 +66,9 @@ main = (do
      (Port.caps [Port.capWrite, Port.capSubsWrite]) Port.typeMidiGeneric $ \ _p2 -> do
   putStrLn "Created ports."
 
-  clientPointer <- ClientInfo.get h
-  clientID_Cons <- ClientInfo.getClient clientPointer
-  clientID <- (\(Client.Cons p) -> return p) clientID_Cons
+  clientID <- Client.getId h
 
-  findPort "AXIS-49 2A" (connectAxis clientID)
+  findPort "AXIS-49 2A" (connectAxis h clientID _p1)
 
   when False $ do
   forever $ do
@@ -76,5 +77,9 @@ main = (do
   `AlsaExc.catch` \e ->
      putStrLn $ "alsa_exception: " ++ AlsaExc.show e
 
-connectAxis myID axisID = do
-  printf "Found my ID: %d.\nFound Axis ID: %d.\n" myID axisID
+connectAxis h myID myPort axisID = do
+  myID_int <- (\(Client.Cons p) -> return p) myID
+  printf "Found my ID: %d.\nFound Axis ID: %s.\n" myID_int axisID
+  AlsaConn.createFrom h myPort =<< Addr.parse h (axisID ++ ":0")
+  return ()
+