Skip to content

Instantly share code, notes, and snippets.

@samth

samth/web-server-test.rkt Secret

Last active February 9, 2016 03:08
Show Gist options
  • Save samth/740cc39eb6c0d9bd7bc3 to your computer and use it in GitHub Desktop.
Save samth/740cc39eb6c0d9bd7bc3 to your computer and use it in GitHub Desktop.
Download ZIP
Raw
web-server-test.rkt
#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