Permalink
Find file
Fetching contributors…
Cannot retrieve contributors at this time
11 lines (7 sloc) 270 Bytes
(use-modules (web server))
(define (dumb-handler . args)
(values '((content-type . (text/plain)))
"Hello, world!"))
(define my-sock (socket PF_UNIX SOCK_STREAM 0))
(bind my-sock AF_UNIX "/tmp/taubatron.sock")
(run-server dumb-handler 'http `(#:socket ,my-sock))