better ui

robur-coop · Jan 9, 2025 · 26a9d5a · 26a9d5a
1 parent e284c27
commit 26a9d5a
Showing 1 changed file with 10 additions and 4 deletions.
diff --git 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) ];