From 53a4265b07d90e8d3c2977ea30026822b5824565 Mon Sep 17 00:00:00 2001
From: Humza Shahid <humzasaur@gmail.com>
Date: Sat, 13 Sep 2025 01:47:57 +0100
Subject: [PATCH] add back a way to trigger exceptions manually to cause a
 logging error

---
 shell/updater.sml | 6 ++++++
 1 file changed, 6 insertions(+)

diff --git a/shell/updater.sml b/shell/updater.sml
index 56b1bcd..9201c65 100644
--- 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)