Skip to content

@gcr /main.rkt
Created

Embed URL

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
#lang web-server/insta
(require web-server/templates)
(define (start req)
(let ([some-input
(if (exists-binding? 'some-input (request-bindings req))
(extract-binding/single 'some-input (request-bindings req))
"nothing yet")])
(response/full 200 #"Okay" (current-seconds) TEXT/HTML-MIME-TYPE
empty
(list (string->bytes/utf-8 (include-template "static.htm"))))))
<!DOCTYPE html>
<html>
<head>
<title>Testing</title>
</head>
<body>
<h1>You said: @|some-input|</h1>
<form method="get" action="#">
<input name="some-input" type="text" />
<input type="submit" />
</form>
</body>
</html>
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment
Something went wrong with that request. Please try again.