Retries that don't need retrying:

[markhibberd]

ServiceError (ServiceError' {_serviceAbbrev = Abbrev "CloudWatchLogs", _serviceStatus = Status {statusCode = 400, sta
tusMessage = "Bad Request"}, _serviceHeaders = [("x-amzn-RequestId","ce0b1ce5-41cb-11e6-9f4c-11013de52b3c"),("Content-Type","application/x-amz-json-1.1"),("Content-Length","297"),
("Date","Mon, 04 Jul 2016 09:43:46 GMT"),("Cneonction","close")], _serviceCode = ErrorCode "DataAlreadyAccepted", _serviceMessage = Just (ErrorMessage "The given batch of log even
ts has already been accepted. The next batch can be sent with sequenceToken: 49559338645264354463981401450699950629094905131703469090"), _serviceRequestId = Just (RequestId "ce0b1
ce5-41cb-11e6-9f4c-11013de52b3c")})