Rewarbled

This commit is contained in:
2024-03-20 20:11:28 +10:00
parent 030771eace
commit 6cd96b3890

View File

@@ -7,6 +7,10 @@ open Types
module Program = module Program =
let pipeline = pipeline {
use_warbler
}
let router = router { let router = router {
not_found_handler (setStatusCode 404 >=> text "404") not_found_handler (setStatusCode 404 >=> text "404")
get "/" ( (View.index [||]) |> htmlView) get "/" ( (View.index [||]) |> htmlView)