;;;; http-client-conditions.scm  -*- Scheme -*-
;;;; Kon Lovett, Jul '18
;;;; Kon Lovett, Jun '13

(module http-client-conditions

(;export
  ;
  http-condition? ;conflict w/ intarweb-conditions
  ;
  client-error-condition?
  client-error-response
  client-error-body
  ;
  server-error-condition?
  server-error-response
  server-error-body
  ;
  unexpected-server-response-condition?
  unexpected-server-response-response
  unexpected-server-response-body
  ;
  redirect-depth-exceeded-condition?
  redirect-depth-exceeded-uri
  ;
  formdata-error-condition?
  ;
  unsupported-uri-scheme-condition?
  unsupported-uri-scheme-uri-scheme
  unsupported-uri-scheme-request-uri
  ;
  unknown-authtype-condition?
  unknown-authtype-authtype)

(import scheme
  (chicken base)
  (chicken condition)
  (chicken type)
  condition-utils)

(include-relative "condition-utils.inline")

;;; HTTP-Client Egg Conditions

;from intraweb
(define-condition-predicate http-condition? exn http)

;
(define-condition-predicate client-error-condition? exn http client-error)
(define-condition-property-accessor client-error-response client-error response)
(define-condition-property-accessor client-error-body client-error body)

;
(define-condition-predicate server-error-condition? exn http server-error)
(define-condition-property-accessor server-error-response server-error response)
(define-condition-property-accessor server-error-body server-error body)

;
(define-condition-predicate unexpected-server-response-condition? exn http unexpected-server-response)
(define-condition-property-accessor unexpected-server-response-response unexpected-server-response response)
(define-condition-property-accessor unexpected-server-response-body unexpected-server-response body)

;
(define-condition-predicate redirect-depth-exceeded-condition? exn http redirect-depth-exceeded)
(define-condition-property-accessor redirect-depth-exceeded-uri server-error uri)

;
(define-condition-predicate formdata-error-condition? exn http formdata-error)

;
(define-condition-predicate unsupported-uri-scheme-condition? exn http unsupported-uri-scheme)
(define-condition-property-accessor unsupported-uri-scheme-uri-scheme server-error uri-scheme)
(define-condition-property-accessor unsupported-uri-scheme-request-uri server-error request-uri)

;
(define-condition-predicate unknown-authtype-condition? exn http unknown-authtype)
(define-condition-property-accessor unknown-authtype-authtype server-error authtype)

) ;http-client-conditions