diff --git a/lib/builder_web.ml b/lib/builder_web.ml index 0db497e..8f5de34 100644 --- a/lib/builder_web.ml +++ b/lib/builder_web.ml @@ -64,9 +64,6 @@ let or_error_response r = let* r = r in match r with | Ok response -> Lwt.return response - | Error (text, `Not_Found) -> - Views.resource_not_found ~text - |> string_of_html |> Dream.html ~status:`Not_Found | Error (text, status) -> Dream.respond ~status text let default_log_warn ~status e = diff --git a/lib/views.ml b/lib/views.ml index 5498b21..9e5ae72 100644 --- a/lib/views.ml +++ b/lib/views.ml @@ -206,16 +206,6 @@ let artifact txtf " (%a)" Fmt.byte_size size; ] -let resource_not_found ~text = - [ - H.h2 ~a:[ H.a_style "padding-top: 33vh" ] - [ txtf "This resource does not exist" ]; - H.p [ - H.txt @@ Fmt.str "Error: '%s'" text - ]; - ] - |> layout ~title:"Resource not found" - let page_not_found ~target ~referer = [ H.h2 ~a:[ H.a_style "padding-top: 33vh" ]