21 lines
426 B
Scheme
21 lines
426 B
Scheme
#lang web-server/insta
|
|
|
|
;; start: request -> html-response
|
|
(define (start request)
|
|
(send/suspend/dispatch
|
|
(lambda (make-url)
|
|
`(html
|
|
(body
|
|
(a ((href ,(make-url link-1))) "Link 1")
|
|
(a ((href ,(make-url link-2))) "Link 2"))))))
|
|
|
|
|
|
;; link-1: request -> html-response
|
|
(define (link-1 request)
|
|
"This is link-1")
|
|
|
|
|
|
;; link-2: request -> html-response
|
|
(define (link-2 request)
|
|
"This is link-2")
|