cmdStatus2PollResult (RequestId rid) (CmdApplied (CommandResult res) _) =
  PollResult{_pollStatus = "ACCEPTED", _pollCmdId = toText rid, _logidx = -1, _pollMessage = "", _pollResPayload = decodeUtf8 res}
cmdStatus2PollResult (RequestId rid) (CmdApplied (CommandResult res) _) =
  PollResult{_pollStatus = "ACCEPTED", _pollCmdId = toText rid, _logidx = -1, _pollMessage = "", _pollResPayload = decodeUtf8 res}
cmdStatus2PollResult (RequestId rid) (CmdApplied (CommandResult res) _) =
  PollResult{_pollStatus = "ACCEPTED", _pollCmdId = toText rid, _logidx = -1, _pollMessage = "", _pollResPayload = decodeUtf8 res}