-- |Connect to a standard bus.
busGet :: BusType -> IO Connection
busGet bt = withErrorP (bus_get (toInt bt)) >>= connectionPTOConnection where
  toInt Session = 0

busGet :: BusType -> IO Connection
busGet bt = withErrorP (bus_get (toInt bt)) >>= connectionPTOConnection where
  toInt Session = 0

busGet bt = withErrorP (bus_get (toInt bt)) >>= connectionPTOConnection where
  toInt Session = 0
