readUnknownMessage :: (Int -> IO [Word8]) -> Inbound.Header -> IO Inbound.InboundMessage
readUnknownMessage readBytes header =
  do
    _ <- readBytes $ Inbound.messageSize header
    let diagnosticMessage = "Unknown messsage: " ++ (show header)
    return $ Inbound.NoOpMessage (Inbound.NoOp diagnosticMessage)
readUnknownMessage :: (Int -> IO [Word8]) -> Inbound.Header -> IO Inbound.InboundMessage
readUnknownMessage readBytes header =
  do
    _ <- readBytes $ Inbound.messageSize header
    let diagnosticMessage = "Unknown messsage: " ++ (show header)
    return $ Inbound.NoOpMessage (Inbound.NoOp diagnosticMessage)
readUnknownMessage readBytes header =
  do
    _ <- readBytes $ Inbound.messageSize header
    let diagnosticMessage = "Unknown messsage: " ++ (show header)
    return $ Inbound.NoOpMessage (Inbound.NoOp diagnosticMessage)