PasteRack.org
Paste # 60919
2016-10-01 07:20:38

Fork as a new paste.

Paste viewed 302 times.


Embed:

dispatch + serve/servlet

  1. ;-*- mode: racket -*-
  2.  
  3. #lang racket
  4.  
  5. (require web-server/dispatch
  6.          web-server/servlet-env
  7.          web-server/servlet)
  8.  
  9. (define-values (wat req)
  10.   (dispatch-rules
  11.     [("uuid" (string-arg)) crunch]))
  12.  
  13. (define (crunch req uuid) `(stuff ,uuid))
  14.  
  15. (serve/servlet wat
  16.                #:port 8081
  17.                #:launch-browser? #f)

=>

tcp-listen: network access denied: '("127.0.0.1" 8081 server)

  context...:

   .../more-scheme.rkt:261:28

There was an error starting the Web server.