begin scaffolding NormalSearchMode (normal mode, except we are searching)

2025-08-31 02:10:57 +01:00
parent 1cf33c9dd7
commit 3b6dff3081
4 changed files with 18 additions and 3 deletions
--- a/fcore/app-update.sml
+++ b/fcore/app-update.sml
@@ -2,6 +2,8 @@ structure AppUpdate =
 struct
  open AppType

-  fun update (app, msg, time) =
-    case #mode app of NORMAL_MODE str => NormalMode.update (app, str, msg, time)
+  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)
 end