Ot_spinner: display error messages in console (was: on screen)

ocsigen · Nov 12, 2018 · 1343096 · 1343096
1 parent c18369d
commit 1343096
Show file tree

Hide file tree

Showing 2 changed files with 9 additions and 2 deletions.
diff --git a/css/ot_icons.css b/css/ot_icons.css
@@ -58,6 +58,7 @@
     background-color: black ;
 }
 
+.ot-icon-error::before,
 .ot-icon-question::before {
     content: '?' ;
     display: block ;

diff --git a/src/widgets/ot_spinner.eliom b/src/widgets/ot_spinner.eliom
@@ -27,8 +27,14 @@ let%shared default_fail e =
   [
     if Eliom_config.get_debugmode ()
     then em [ pcdata (Printexc.to_string e) ]
-    else em ~a:[ a_class ["ot-icon-question"] ]
-        [ pcdata (Printexc.to_string e) ] ]
+    else begin
+      let e = Printexc.to_string e in
+      ignore [%client (Firebug.console##error
+                         (Js.string ("Ot_spinner content failed with "^ ~%e))
+                       : unit)];
+      em ~a:[ a_class ["ot-icon-error"] ] []
+    end
+  ]
 
 let%server with_spinner ?(a = []) ?fail thread =
   let a = (a :> Html_types.div_attrib attrib list) in