adjust error page

robur-coop · Jan 13, 2025 · e41b3db · e41b3db
1 parent c77a747
commit e41b3db
Show file tree

Hide file tree

Showing 2 changed files with 5 additions and 4 deletions.
diff --git a/error_page.ml b/error_page.ml
@@ -5,13 +5,13 @@ let error_layout (error : Utils.Status.t) =
       [
         i ~a:[ a_class [ "fa-solid fa-triangle-exclamation text-5xl" ] ] [];
         div
-          ~a:[ a_class [ "flex gap-2 justify-center" ] ]
+          ~a:[ a_class [ "text-center" ] ]
           [
             p
               ~a:[ a_class [ "text-5xl text-secondary-500 font-semibold" ] ]
-              [ txt (string_of_int error.code ^ ":") ];
+              [ txt ("Error " ^ string_of_int error.code) ];
             p
-              ~a:[ a_class [ "uppercase font-bold text-5xl" ] ]
+              ~a:[ a_class [ "uppercase font-bold text-xl" ] ]
               [ txt error.title ];
           ];
         p

diff --git a/unikernel.ml b/unikernel.ml
@@ -1082,7 +1082,8 @@ struct
                     Middleware.redirect_to_error
                       ~data:(`String ("Builder_web request: " ^ err))
                       ~title:
-                        (Vmm_core.Name.to_string unikernel_name ^ " update Error")
+                        (Vmm_core.Name.to_string unikernel_name
+                        ^ " update Error")
                       ~api_meth:false `Internal_server_error reqd ()
                 | Ok response_body -> (
                     match