mirror of
https://github.com/aantron/dream.git
synced 2025-12-31 00:03:52 -05:00
8 lines
227 B
OCaml
8 lines
227 B
OCaml
let () =
|
|
Dream.run (fun request ->
|
|
match Dream.query "echo" request with
|
|
| None ->
|
|
Dream.respond "Use ?echo=foo to give a message to echo!"
|
|
| Some message ->
|
|
Dream.respond (Dream.html_escape message))
|