cmdStatusError :: PollResult
cmdStatusError = PollResult
  { _pollStatus = "ERROR"
  , _pollCmdId = "errorID"
  , _logidx = -1
  , _pollMessage = "nothing to say"
  , _pollResPayload = "no payload"
  }
cmdStatusError :: PollResult
cmdStatusError = PollResult
  { _pollStatus = "ERROR"
  , _pollCmdId = "errorID"
  , _logidx = -1
  , _pollMessage = "nothing to say"
  , _pollResPayload = "no payload"
  }
cmdStatusError = PollResult
  { _pollStatus = "ERROR"
  , _pollCmdId = "errorID"
  , _logidx = -1
  , _pollMessage = "nothing to say"
  , _pollResPayload = "no payload"
  }