mirror of
https://github.com/aantron/dream.git
synced 2025-12-31 00:03:52 -05:00
16 lines
442 B
OCaml
16 lines
442 B
OCaml
let () =
|
|
Dream.run
|
|
@@ Dream.logger
|
|
@@ Dream.memory_sessions
|
|
@@ fun request ->
|
|
|
|
match Dream.session "user" request with
|
|
| None ->
|
|
let%lwt () = Dream.invalidate_session request in
|
|
let%lwt () = Dream.put_session "user" "alice" request in
|
|
Dream.respond "You weren't logged in; but now you are!"
|
|
|
|
| Some username ->
|
|
Printf.ksprintf
|
|
Dream.respond "Welcome back, %s!" (Dream.html_escape username)
|