;; lib/dream/demos/hello.sx — the canonical Dream "Hello, World!" (hello.ml). ;; Dream.run (Dream.router [Dream.get "/" (fun _ -> Dream.html "Hello!")]). (define dream-hello-app (dream-router (list (dream-get "/" (fn (req) (dream-html "

Hello, World!

"))) (dream-get "/hello/:name" (fn (req) (dream-html (str "

Hello, " (dream-param req "name") "!

"))))))) ;; entry point (installs the handler on the host): ;; (dream-run dream-hello-app)