18 lines
347 B
Racket
18 lines
347 B
Racket
#lang web-server
|
|
(provide interface-version start)
|
|
(define interface-version 'stateless)
|
|
|
|
(define softie
|
|
(soft-state
|
|
(printf "Doing a long computation...\n")
|
|
(sleep 1)
|
|
5))
|
|
|
|
(define (start req)
|
|
(soft-state-ref softie)
|
|
(printf "Done\n")
|
|
(start
|
|
(send/suspend
|
|
(lambda (k-url)
|
|
`(html (body (a ([href ,k-url]) "Done")))))))
|