mirror of
https://github.com/aantron/dream.git
synced 2025-12-31 00:03:52 -05:00
16 lines
257 B
OCaml
16 lines
257 B
OCaml
let () =
|
|
Dream.run ~debug:true
|
|
@@ Dream.logger
|
|
@@ Dream.router [
|
|
|
|
Dream.get "/bad"
|
|
(fun _ ->
|
|
Dream.empty `Bad_Request);
|
|
|
|
Dream.get "/fail"
|
|
(fun _ ->
|
|
raise (Failure "The Web app failed!"));
|
|
|
|
]
|
|
@@ Dream.not_found
|