busRequestName :: Connection -> String -> [Int] -> IO RequestNameReply
busRequestName conn name flags =
  withForeignPtr conn $ \conn -> do
    withCString name $ \cname -> do
      ret <- withErrorP (bus_request_name conn cname 2)
      return $ fromInt ret where
  fromInt 1 = PrimaryOwner

busRequestName :: Connection -> String -> [Int] -> IO RequestNameReply
busRequestName conn name flags =
  withForeignPtr conn $ \conn -> do
    withCString name $ \cname -> do
      ret <- withErrorP (bus_request_name conn cname 2)
      return $ fromInt ret where
  fromInt 1 = PrimaryOwner

busRequestName conn name flags =
  withForeignPtr conn $ \conn -> do
    withCString name $ \cname -> do
      ret <- withErrorP (bus_request_name conn cname 2)
      return $ fromInt ret where
  fromInt 1 = PrimaryOwner
