;; From Eli Barzilay

#lang scheme

;; This will give us ssl:--- for an ssl version of url.ss, but still need an
;; explicit port number specification since url.ss does not handle that
(require scheme/unit
         net/url-sig net/url-unit
         net/tcp-sig net/tcp-unit
         net/ssl-tcp-unit)

(define-values/invoke-unit
  (compound-unit/infer (import) (export url^) (link tcp@ url@))
  (import) (export url^))

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

(define-values/invoke-unit
  (compound-unit (import) (export URL)
    (link [((TCP : tcp^)) ssl-tcp@]
          [((URL : url^)) url@ TCP]))
  (import) (export (prefix ssl: url^)))

(provide (all-defined-out))