ssl-url.rkt
#lang racket/base

(require net/url-unit net/url-sig
         net/tcp-sig
         net/ssl-tcp-unit
         racket/unit)

(define tcp@ (make-ssl-tcp@ #f #f #f #f #f #f #f))

(define-compound-unit url+tcp@
  (import) (export (tag url^ url$))
  (link (((tcp$ : tcp^)) tcp@ url$)
        (((url$ : url^)) url@ tcp$)))

(define-values/invoke-unit/infer url+tcp@)

(provide get-impure-port post-impure-port head-impure-port)