add back a way to trigger exceptions manually to cause a logging error

2025-09-13 01:47:57 +01:00
parent a99b6c8df8
commit 53a4265b07
1 changed files with 6 additions and 0 deletions
--- a/shell/updater.sml
+++ b/shell/updater.sml
@@ -18,6 +18,12 @@ struct
    let
      val time = Time.now ()

+      val () =
+        case inputMsg of
+          CHAR_EVENT #"~" =>
+            ExceptionLogger.log (Fail "intentionally caused exception")
+        | _ => ()
+
      val () = ExceptionLogger.addCommand inputMsg

      val app = AppUpdate.update (app, inputMsg, time)