diff options
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 = |