diff options
| author | polwex <polwex@sortug.com> | 2025-06-27 08:24:37 +0700 |
|---|---|---|
| committer | polwex <polwex@sortug.com> | 2025-06-27 08:24:37 +0700 |
| commit | f0ada28815f35f160f0e85101728d215c0f7d7f9 (patch) | |
| tree | 7eb39633d934094346745d87af436d1de39c1383 /lib/router.ml | |
| parent | ba350f124bab36766af6c71ba5e3dc17f33fb5ab (diff) | |
m
Diffstat (limited to 'lib/router.ml')
| -rw-r--r-- | lib/router.ml | 5 |
1 files changed, 3 insertions, 2 deletions
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 = |