17 lines
450 B
Racket
17 lines
450 B
Racket
#lang web-server/insta
|
|
|
|
(define (start request)
|
|
(show-counter 0))
|
|
|
|
;; show-counter: number -> doesn't return
|
|
(define (show-counter n)
|
|
(send/suspend/dispatch
|
|
(lambda (make-url)
|
|
(response/xexpr
|
|
`(html (head (title "Counting example"))
|
|
(body
|
|
(a ((href ,(make-url
|
|
(lambda (request)
|
|
(show-counter (+ n 1))))))
|
|
,(number->string n))))))))
|