sendMsg::Message->EthCryptM ContextM ()
sendMsg msg = do
  lift $ displayMessage True msg
  let (pType, pData) = wireMessage2Obj msg
  encryptAndPutFrame $
    B.cons pType $ rlpSerialize pData
sendMsg::Message->EthCryptM ContextM ()
sendMsg msg = do
  lift $ displayMessage True msg
  let (pType, pData) = wireMessage2Obj msg
  encryptAndPutFrame $
    B.cons pType $ rlpSerialize pData
sendMsg msg = do
  lift $ displayMessage True msg
  let (pType, pData) = wireMessage2Obj msg
  encryptAndPutFrame $
    B.cons pType $ rlpSerialize pData