`python -m SimpleHTTPServer` but in Haskell via Snap