a little additional scaffolding for normal mode

2025-08-31 02:41:37 +01:00
parent 3b6dff3081
commit 542da2229c
8 changed files with 50 additions and 5 deletions
--- a/fcore/app-update.sml
+++ b/fcore/app-update.sml
@@ -4,6 +4,7 @@ struct

  fun update (app: app_type, msg, time) =
    case #mode app of
-      NORMAL_MODE str => NormalMode.update (app, str, msg, time)
-    | NORMAL_SEARCH_MODE str => NormalSearchMode.update (app, str, msg, time)
+      NORMAL_MODE modeData => NormalMode.update (app, modeData, msg, time)
+    | NORMAL_SEARCH_MODE modeData =>
+        NormalSearchMode.update (app, modeData, msg, time)
 end