exampleRestletErrors :: [RestletResponse]
exampleRestletErrors = map RestletErrorResp [ HttpRestletError 400 txBadRequest hdrs1 txBadRequest
                                            , HttpRestletError 400 txBadRequest hdrs2 txChunky
                                            , HttpRestletError 400 txBadRequest hdrs2 txEndChunk
                                            , HttpRestletError 404 txNotFound hdrs2 txDoesntExist
                                            , HttpRestletError 400 txBadRequest hdrs2 txInvalidSearch
                                            , HttpRestletError 400 txBadRequest hdrs2 txCcProcessor
                                            , HttpRestletError 400 txBadRequest hdrs2 txAlreadyExists
                                            , HttpRestletError 400 txBadRequest hdrs2 txUnknown ]
  where
    txBadRequest = C.pack "Bad Request"
    txNotFound = C.pack "Not Found"
    txChunky = C.pack "{\"error\": {\"message\": \"CHUNKY_MONKEY\"}}"
    txEndChunk = C.pack "{\"error\": {\"message\": \"NO_MORE_CHUNKS\"}}"
    txDoesntExist = C.pack "{\"error\": {\"code\": \"RCRD_DOESNT_EXIST\"}}"
    txInvalidSearch = C.pack "{\"error\": {\"code\": \"SSS_INVALID_SRCH_FILTER\"}}"
    txCcProcessor = C.pack "{\"error\": {\"code\": \"CC_PROCESSOR_ERROR\"}}"
    txAlreadyExists = C.pack "{\"error\": {\"code\": \"FOO_ALREADY_EXISTS\"}}"
    txUnknown = C.pack "{\"error\": {\"message\": \"IDK_LOL\"}}"
    hdrs1 = updateHeader emptyHeaders (C.pack "Content-Type") (C.pack "text/plain")
    hdrs2 = updateHeader emptyHeaders (C.pack "Content-Type") (C.pack "application/json")
exampleRestletErrors :: [RestletResponse]
exampleRestletErrors = map RestletErrorResp [ HttpRestletError 400 txBadRequest hdrs1 txBadRequest
                                            , HttpRestletError 400 txBadRequest hdrs2 txChunky
                                            , HttpRestletError 400 txBadRequest hdrs2 txEndChunk
                                            , HttpRestletError 404 txNotFound hdrs2 txDoesntExist
                                            , HttpRestletError 400 txBadRequest hdrs2 txInvalidSearch
                                            , HttpRestletError 400 txBadRequest hdrs2 txCcProcessor
                                            , HttpRestletError 400 txBadRequest hdrs2 txAlreadyExists
                                            , HttpRestletError 400 txBadRequest hdrs2 txUnknown ]
  where
    txBadRequest = C.pack "Bad Request"
    txNotFound = C.pack "Not Found"
    txChunky = C.pack "{\"error\": {\"message\": \"CHUNKY_MONKEY\"}}"
    txEndChunk = C.pack "{\"error\": {\"message\": \"NO_MORE_CHUNKS\"}}"
    txDoesntExist = C.pack "{\"error\": {\"code\": \"RCRD_DOESNT_EXIST\"}}"
    txInvalidSearch = C.pack "{\"error\": {\"code\": \"SSS_INVALID_SRCH_FILTER\"}}"
    txCcProcessor = C.pack "{\"error\": {\"code\": \"CC_PROCESSOR_ERROR\"}}"
    txAlreadyExists = C.pack "{\"error\": {\"code\": \"FOO_ALREADY_EXISTS\"}}"
    txUnknown = C.pack "{\"error\": {\"message\": \"IDK_LOL\"}}"
    hdrs1 = updateHeader emptyHeaders (C.pack "Content-Type") (C.pack "text/plain")
    hdrs2 = updateHeader emptyHeaders (C.pack "Content-Type") (C.pack "application/json")
exampleRestletErrors = map RestletErrorResp [ HttpRestletError 400 txBadRequest hdrs1 txBadRequest
                                            , HttpRestletError 400 txBadRequest hdrs2 txChunky
                                            , HttpRestletError 400 txBadRequest hdrs2 txEndChunk
                                            , HttpRestletError 404 txNotFound hdrs2 txDoesntExist
                                            , HttpRestletError 400 txBadRequest hdrs2 txInvalidSearch
                                            , HttpRestletError 400 txBadRequest hdrs2 txCcProcessor
                                            , HttpRestletError 400 txBadRequest hdrs2 txAlreadyExists
                                            , HttpRestletError 400 txBadRequest hdrs2 txUnknown ]
  where
    txBadRequest = C.pack "Bad Request"
    txNotFound = C.pack "Not Found"
    txChunky = C.pack "{\"error\": {\"message\": \"CHUNKY_MONKEY\"}}"
    txEndChunk = C.pack "{\"error\": {\"message\": \"NO_MORE_CHUNKS\"}}"
    txDoesntExist = C.pack "{\"error\": {\"code\": \"RCRD_DOESNT_EXIST\"}}"
    txInvalidSearch = C.pack "{\"error\": {\"code\": \"SSS_INVALID_SRCH_FILTER\"}}"
    txCcProcessor = C.pack "{\"error\": {\"code\": \"CC_PROCESSOR_ERROR\"}}"
    txAlreadyExists = C.pack "{\"error\": {\"code\": \"FOO_ALREADY_EXISTS\"}}"
    txUnknown = C.pack "{\"error\": {\"message\": \"IDK_LOL\"}}"
    hdrs1 = updateHeader emptyHeaders (C.pack "Content-Type") (C.pack "text/plain")
    hdrs2 = updateHeader emptyHeaders (C.pack "Content-Type") (C.pack "application/json")