Browse files

Constructing a Uri supports #f for the port.

  • Loading branch information...
1 parent ad25760 commit f0894647f76565cc63b54ec6b5ee359d5486c540 @RayRacine committed Mar 12, 2013
Showing with 1 addition and 1 deletion.
  1. +1 −1 httpclient/uri.rkt
@@ -77,7 +77,7 @@
(with-syntax ([ch (datum->syntax stx 'ch )])
#'(read-valid ip (λ: ((ch : Char)) until-block) op))]))
-(: make-uri (String (Option String) String Natural String (Option String) (Option String) -> Uri))
+(: make-uri (String (Option String) String (Option Natural) String (Option String) (Option String) -> Uri))
(define (make-uri scheme user host port path query fragment)
(let ((authority (Authority user host port)))
(Uri scheme authority

0 comments on commit f089464

Please sign in to comment.