sendMessage::Handle->Message->ContextM ()
sendMessage handle msg = do
  let (pType, pData) = wireMessage2Obj msg
  liftIO $ sendCommand handle $ B.cons pType $ rlpSerialize pData
sendMessage::Handle->Message->ContextM ()
sendMessage handle msg = do
  let (pType, pData) = wireMessage2Obj msg
  liftIO $ sendCommand handle $ B.cons pType $ rlpSerialize pData
sendMessage handle msg = do
  let (pType, pData) = wireMessage2Obj msg
  liftIO $ sendCommand handle $ B.cons pType $ rlpSerialize pData