RtMidi-0.1.0.0: examples/query.hs

import Sound.RtMidi
import Control.Concurrent

main = do
  device <- createOutput AlsaApi "test"
  api <- currentApi device
  builtin <- compiledApis
  numPorts <- portCount device
  portNames <- mapM (portName device) [0..numPorts-1]
  putStrLn $ "RtMidi output using " ++ (show api)
  putStrLn $ "built-in: " ++ (show builtin)
  putStrLn $ "available Ports: " ++ (show numPorts)
  putStrLn (show portNames)
  closeOutput device