CallRequestError = object of RestError

Recallable = ref object of RootObj
  headers*: HttpHeaders
  client*: RestClient
  url*: string
  json*: JsonNode
  body*: string
  retries*: int
  began*: Time
  took*: Duration
  meth*: HttpMethod

RestCall = ref object of RootObj
  client*: RestClient
  name*: string
  meth*: HttpMethod
  url*: Uri

RestClient = ref RestClientObj

RestError = object of CatchableError

RetriesExhausted = object of RestError

proc issueRequest(rec: Recallable): Response {....raises: [RestError],
    tags: [TimeEffect, RootEffect, ReadIOEffect, WriteIOEffect].}

proc massageHeaders(node: JsonNode): seq[KeyVal] {....raises: [KeyError], tags: [].}

proc newRestClient(): RestClient {....raises: [LibraryError, SslError, Exception,
    IOError], tags: [RootEffect, ReadDirEffect, ReadEnvEffect].}

method `$`(c: RestCall): string {.base, ...raises: [], tags: [].}

method `$`(e: ref RestError): string {.base, ...raises: [], tags: [].}

method initRestClient(self: RestClient) {.base,
    ...raises: [LibraryError, SslError, Exception, IOError],
    tags: [RootEffect, ReadDirEffect, ReadEnvEffect].}

method newRecallable(call: RestCall; url: Uri; headers: HttpHeaders;
                     body: string): Recallable {.base, ...raises: [Exception],
    tags: [RootEffect, ReadDirEffect, ReadEnvEffect].}