readMediaServerInfo :: (Int -> IO String) -> Inbound.Header -> IO Inbound.InboundMessage
readMediaServerInfo readNullTerminatedText header =
  do
    url <- readNullTerminatedText $ Inbound.messageSize header
    return . Inbound.MediaServerMessage $ Inbound.MediaServerInfo url

-- room name, background image, overlay images, props, hotspots, draw commands
-- TODO Finish this
readMediaServerInfo :: (Int -> IO String) -> Inbound.Header -> IO Inbound.InboundMessage
readMediaServerInfo readNullTerminatedText header =
  do
    url <- readNullTerminatedText $ Inbound.messageSize header
    return . Inbound.MediaServerMessage $ Inbound.MediaServerInfo url

-- room name, background image, overlay images, props, hotspots, draw commands
-- TODO Finish this
readMediaServerInfo readNullTerminatedText header =
  do
    url <- readNullTerminatedText $ Inbound.messageSize header
    return . Inbound.MediaServerMessage $ Inbound.MediaServerInfo url

-- room name, background image, overlay images, props, hotspots, draw commands
-- TODO Finish this