suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Remove unused exn and example code

Browse Source 
* Remove exn:fail:cookie, since I’d rewritten the library code to
avoid using it.
 * Correct docs for cookie-header->alist, to reflect not raising the
exn.
 * Remove needless illustration of date from clear-cookie-header
example.
This commit is contained in:
Jordan Johnson 2015-03-30 13:29:07 -07:00
parent a01e93b515
commit c3ce72e229
2 changed files with 2 additions and 19 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
net-doc/net/scribblings/cookies.scrbl
View File

@ -170,16 +170,10 @@ HttpOnly} for more info.)
@examples[
#:eval cookies-server-eval
(clear-cookie-header "rememberUser" #:path "/main")
(require racket/date)
(date->string (seconds->date (current-seconds) #f) #t)
]
}
@defstruct*[(exn:fail:cookie exn:fail) ()]{
Raised when a cookie (or component thereof) is malformed or can't be parsed.
}
@defproc*[([(cookie-header->alist [header bytes?])
(listof (cons/c bytes? bytes?))]
[(cookie-header->alist [header bytes?]
@ -189,10 +183,8 @@ Raised when a cookie (or component thereof) is malformed or can't be parsed.
alist of all cookie name/value mappings in the header. If a
@racket[decode] function is given, applies @racket[decode]
to each key and each value before inserting the new
key-value pair into the alist. Raises an
@racket[exn:fail:cookie] if the header can't be parsed into
a sequence of name/value pairs (but does not check that the
byte-string obeys all the cookie formatting requirements).
key-value pair into the alist. Invalid cookies will not
be present in the alist.
If a key in the header has no value, then @racket[#""], or
@racket[(decode #"")] if @racket[decode] is present, is
@ -209,7 +201,6 @@ Raised when a cookie (or component thereof) is malformed or can't be parsed.
}
@defproc[(cookie->string [c cookie?])
string?]{
Produces a string containing the given cookie as text.

8
net-lib/net/cookies/server.rkt
View File

@ -34,10 +34,6 @@
bytes?)]
[cookie->string (-> cookie? string?)]
(struct (exn:fail:cookie exn:fail)
([message string?]
[continuation-marks continuation-mark-set?]))
#:forall X
[cookie-header->alist
(case-> (-> bytes? (listof (cons/c bytes? bytes?)))
@ -82,10 +78,6 @@
#:path path
#:domain domain)))
;; For failure to parse a cookie on the server side:
;; FIXME I'm not sure I like raising exns for this.
(struct exn:fail:cookie exn:fail ())
;; bytes? [(bytes? -> A)] -> (AList A A)
;; Given the value from a Cookie: header, produces an alist of name/value
;; mappings. If there is no value, the empty byte-string (or whatever