diff --git a/error_page.ml b/error_page.ml index 26e420a6..09a22c49 100644 --- a/error_page.ml +++ b/error_page.ml @@ -4,10 +4,16 @@ let error_layout (error : Utils.Status.t) = ~a:[ a_class [ "text-center" ] ] [ i ~a:[ a_class [ "fa-solid fa-triangle-exclamation text-5xl" ] ] []; - p - ~a:[ a_class [ "text-5xl text-secondary-500 font-semibold" ] ] - [ txt (string_of_int error.code) ]; - p ~a:[ a_class [ "uppercase font-bold text-5xl" ] ] [ txt error.title ]; + div + ~a:[ a_class [ "flex gap-2 justify-center" ] ] + [ + p + ~a:[ a_class [ "text-5xl text-secondary-500 font-semibold" ] ] + [ txt (string_of_int error.code ^ ":") ]; + p + ~a:[ a_class [ "uppercase font-bold text-5xl" ] ] + [ txt error.title ]; + ]; p ~a:[ a_class [ "text-xl my-6" ] ] [ txt (Yojson.Basic.to_string error.data) ];