abstract exception handler/logger into its own file

2025-08-04 09:03:47 +01:00
parent f4c9039af1
commit ce0f700253
9 changed files with 60 additions and 47 deletions
--- a/test/regression.sml
+++ b/test/regression.sml
@@ -9,8 +9,8 @@ struct
    else
      let
        val chr = String.sub (str, pos)
+        val () = ExceptionLogger.addCommand (InputMsg.CHAR_EVENT chr)
        val app = AppUpdate.update (app, InputMsg.CHAR_EVENT chr)
-                  handle _ => raise Fail (Int.toString pos)
      in
        updateLoop (pos + 1, str, app)
      end