readHandshake :: PalaceMsgTypes.MessageType -> Net.PalaceConnection -> Inbound.Header -> IO Inbound.InboundMessage
readHandshake PalaceMsgTypes.BigEndianServer connection header = do
    let userRefId  = Inbound.messageRefNumber header
        handshake = Inbound.Handshake userRefId (Inbound.PalaceProtocol connection Inbound.BigEndian)
    return $ Inbound.HandshakeMessage handshake
readHandshake :: PalaceMsgTypes.MessageType -> Net.PalaceConnection -> Inbound.Header -> IO Inbound.InboundMessage
readHandshake PalaceMsgTypes.BigEndianServer connection header = do
    let userRefId  = Inbound.messageRefNumber header
        handshake = Inbound.Handshake userRefId (Inbound.PalaceProtocol connection Inbound.BigEndian)
    return $ Inbound.HandshakeMessage handshake
readHandshake PalaceMsgTypes.BigEndianServer connection header = do
    let userRefId  = Inbound.messageRefNumber header
        handshake = Inbound.Handshake userRefId (Inbound.PalaceProtocol connection Inbound.BigEndian)
    return $ Inbound.HandshakeMessage handshake