Do not fail if page number isn't a page number (#2687)

Co-authored-by: Cuihtlauac ALVARADO <[email protected]>
ocaml · Sep 9, 2024 · d21a2c7 · d21a2c7
1 parent 05936a3
commit d21a2c7
Showing 1 changed file with 2 additions and 1 deletion.
diff --git a/src/ocamlorg_web/lib/handler.ml b/src/ocamlorg_web/lib/handler.ml
@@ -236,7 +236,8 @@ let events _req =
 let paginate ~req ~n items =
   let items_per_page = n in
   let page =
-    Dream.query req "p" |> Option.map int_of_string |> Option.value ~default:1
+    Option.bind (Dream.query req "p") int_of_string_opt
+    |> Option.value ~default:1
   in
   let number_of_pages =
     int_of_float