#lang racket | |
(require web-server/dispatchers/filesystem-map net/url) | |
(with-handlers ([exn:fail? (λ _ (printf "Up to date!\n"))]) | |
((make-url->path "/a/b/c") | |
(string->url "http://google.com/..%2f..%2fa%2fpath")) | |
(printf "Out of date!\n")) |
Sign up for free
to join this conversation on GitHub.
Already have an account?
Sign in to comment