Create a gist now

Instantly share code, notes, and snippets.

@samth /web-server-test.rkt Secret
Last active Feb 9, 2016

What would you like to do?
#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