From f0ada28815f35f160f0e85101728d215c0f7d7f9 Mon Sep 17 00:00:00 2001 From: polwex Date: Fri, 27 Jun 2025 08:24:37 +0700 Subject: m --- lib/router.ml | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) (limited to 'lib/router.ml') diff --git a/lib/router.ml b/lib/router.ml index 013686c..4e05da7 100644 --- a/lib/router.ml +++ b/lib/router.ml @@ -56,14 +56,15 @@ let routes = (* bs5 routes *) (* root *) - ; `GET, nil @--> Pages.get_root - ; `GET, (s "l" /? nil) @--> Pages.get_root + ; `GET, nil @--> Html.render @@ Pages.BlogIndex.make () + ; `GET, (s "l" /? nil) @--> Html.get_root ] ;; (* Transform the routes map by applying 'one_of' to each list of routes *) (* 'one_of' combines multiple routes into a single router that tries each in order *) let router = R.map one_of routes +let lol = Html.render @@ Pages.BlogIndex.make () (* Function to match an incoming request against our routes *) let match_route verb path = -- cgit v1.2.3