humza/sml-projects
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

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

Browse Source
This commit is contained in:
Humza Shahid
2025-09-13 01:47:57 +01:00
parent a99b6c8df8
commit 53a4265b07
1 changed files with 6 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
shell/updater.sml
View File

@@ -18,6 +18,12 @@ struct
let let
val time = Time.now () val time = Time.now ()
val () =
case inputMsg of
CHAR_EVENT #"~" =>
ExceptionLogger.log (Fail "intentionally caused exception")
| _ => ()
val () = ExceptionLogger.addCommand inputMsg val () = ExceptionLogger.addCommand inputMsg
val app = AppUpdate.update (app, inputMsg, time) val app = AppUpdate.update (app, inputMsg, time)